|
You don't insert a list, but a record; each record is an item in the list. You'd need to execute an insert-command (yup, still), something similar to this;
Public Sub DoInsert()
Using connection As New SqlConnection(connectionString)
Dim command As SqlCommand = connection.CreateCommand()
command.Connection.Open()
command.CommandText = "INSERT INTO [studenttablename] (StudName, StudAge) VALUES @StudName, @StudAge)"
command.Parameters.AddWithValue("@StudName", "Goku")
command.Parameters.AddWithValue("@StudAge", "9000+")
command.ExecuteNonQuery()
End Using
End Sub
Do that for each item, and the list is "inserted" in the table.
Bastard Programmer from Hell 
if you can't read my code, try converting it here[^]
|
|
|
|
|
is there a way for me to insert all using this coding? lets say i have 10 record, how can i use this code to insert each record that i key-in? i want to insert 10 or more records at a time. I manage to UPDATE multiple record using one button on grid view.
But for INSERT, i can only manage to INSERT record one by one. Is there a way for me to INSERT lets say 10 records at a time?
|
|
|
|
|
zaimah wrote: is there a way for me to insert all using this coding?
Yes, by executing that code ten times. If it needs to be a single action, it'd be wrapped in a transaction.
Uploading a list is usually done when importing large text-files - it's called a batch insert.
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
|
Hi,
I am recently using SQL for a project of my own. I came across this post and thought I might be able to offer some input. For example, in my team group is creating a database.
There is a way to insert multiple rows into a table in SQL without having to insert them individually. You could formulate the data to be inserted as select statements for multiple list row entries, but I believe for this to be accomplished you may have to do two stages:
1)Put the data into a temporary table
2)Insert from that table.
Live Support Software for Business
April
Comm100 - Leading Live Chat Software Provider
modified 27-May-14 8:41am.
|
|
|
|
|
Hi,
Does it has a tool to know the memory occupied by a form in a VB application?
Thanks,
Claude
|
|
|
|
|
Gagnon Claude wrote: Does it has a tool to know the memory occupied by a form in a VB application?
Various companies supply memory-profilers, or, one could use the CLR Profiler[^] from Microsoft.
You could also ask the Marshal.SizeOf[^] the form. Take in account that embedded objects (such as a Font) might exist once, and not use memory on each property-slot (only the size of a long for a pointer)
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
An utterly pointless question as you haven't specified which aspect of the forum you're talking about.
Are you referring to the memory required to serial the data content of the form?
Serialize the Form itself, just the controls or controls and content)?
How much memory the code behind the Form is taking as the code runs?
...??
|
|
|
|
|
|
Then you'll need a memory profiler, as Eddie linked to.
|
|
|
|
|
I am trying to write a simple WPF application in VB using Vs2010 and SQLExpress 2012, although i am not using any databinding.
The problem is that although i have found lots of examples of how to write code to read data from the database, some of it seems very complex and others real simple.
Now i want to update my DB and add (transaction log) records to it, i cannot find an example that works with my current setup. It can't be that difficult can it?
Class MainWindow
Dim dataEntities As MaxGateEntities = New MaxGateEntities
Dim passno As String
Dim passcnt As Integer
Dim inout As String
Private Sub Enter_Button_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
Dim Passes As ObjectQuery(Of Pass) = dataEntities.Passes
Dim PassTransactions As ObjectQuery(Of Transaction) = dataEntities.Transactions
passno = Me.PassNumber.Text
Dim passQry = From pass In Passes Where pass.PassID = passno Select pass.InOut
passcnt = passQry.Count
For Each item In passQry
inout = item.ToString
Next
End Sub
End Class
|
|
|
|
|
Gerald Connolly wrote: It can't be that difficult can it?
Depends on what you consider to be difficult. There are examples on MSDN that use adapters, but most of the time you'll see UPDATE or INSERT statements. The example for LINQ can be found here[^].
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
Eddy,
I have seen that page, but the examples have this line?
Dim db As New Northwnd("…\Northwnd.mdf")
and i don't have one of those. I added a data source using ADO entities and included the appropriate statement as in my code.
|
|
|
|
|
Gerald Connolly wrote: I added a data source using ADO entities and included the appropriate statement as in my code.
That's a wizard that generates code, and I have not worked with the ADO.NET Entities; the documentation is not very helpful either. That's the reason why I'm still using old-fashioned Sql and simple IDbCommands.
I found an example that matches your code here[^], but I haven't succeeded yet in creating a simple console-application that performs an insert.
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
I'm a novice programmer. I am having problem in connecting a printer "DATECS DPP-250" in my code. I tried to add "PrintDriver.dll"
but it output's like there is some kind of error that THE memory is being corrupted. I've searched a lot forums but still I can't solve it. Please I really need all of your help.
THIS IS THE PROBLEM:
_________________________________________________________
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.
************** Exception Text **************
System.AccessViolationException: Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
at PrintDriverNet.Printer.PDSDK_OpenPrinter(Int32 nKernelMode, String strPrinterName)
at PrintDriverNet.Printer.OpenPrinter() in d:\Sources\Projects\Datecs\PrinterUtility\PrintDriverNet\PrintDriverNet.cs:line 471
at Testing.MainForm.buttonRead_Click(Object sender, EventArgs e) in D:\Works\Testing\Testing\MainForm.vb:line 44
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Loaded Assemblies **************
mscorlib
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
Testing
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///D:/Works/Testing/Testing/bin/Debug/Testing.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 8.0.0.0
Win32 Version: 8.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
PrintDriverNet
Assembly Version: 1.0.4652.23888
Win32 Version: 1.0.4652.23888
CodeBase: file:///D:/Works/Testing/Testing/bin/Debug/PrintDriverNet.DLL
----------------------------------------
************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.
For example:
<configuration>
<system.windows.forms jitdebugging="true">
When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.
___________________________________________________________
AND HERE IS MY CODE:
__________________________________________________________
Imports PrintDriverNet
Public Class Form1
Private Sub buttonRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonRead.Click
Dim printer__1 As New Printer()
Dim msr_params As Integer = Printer.MRPARAM_PREFIX
Dim buffer As Byte() = New Byte(256 * 3 - 1) {}
Dim res As Integer
textBoxTrack1.Text = String.Empty
textBoxTrack1.Update()
textBoxTrack2.Text = String.Empty
textBoxTrack2.Update()
textBoxTrack3.Text = String.Empty
textBoxTrack3.Update()
Try
textBoxTrack1.Text = "Connecting ..."
textBoxTrack1.Update()
textBoxTrack2.Text = "Connecting ..."
textBoxTrack2.Update()
textBoxTrack3.Text = "Connecting ..."
textBoxTrack3.Update()
''-----I can't connect to my printer here in this statement,it crashes
*--> If printer__1.OpenPrinter() < 0 Then
Throw New ApplicationException("Failed to open connection with printer.")
End If
.------''
textBoxTrack1.Text = "Swipe a magnetic card ..."
textBoxTrack1.Update()
textBoxTrack2.Text = "Swipe a magnetic card ..."
textBoxTrack2.Update()
textBoxTrack3.Text = "Swipe a magnetic card ..."
textBoxTrack3.Update()
If checkBoxTrack1.Checked Then
msr_params = msr_params Or Printer.MRPARAM_TRACK1
End If
If checkBoxTrack2.Checked Then
msr_params = msr_params Or Printer.MRPARAM_TRACK2
End If
If checkBoxTrack3.Checked Then
msr_params = msr_params Or Printer.MRPARAM_TRACK3
End If
If (InlineAssignHelper(res, printer__1.ReadMagstripe(10000, msr_params, buffer, buffer.Length))) < 0 Then
Throw New ApplicationException("Failed to read magstripe data.")
End If
textBoxTrack1.Text = "No track selected or available data."
textBoxTrack2.Text = "No track selected or available data."
textBoxTrack3.Text = "No track selected or available data."
Dim i As Integer = 0, j As Integer = -1
While i < res
Select Case buffer(i)
Case &HF1
j = buffer(i)
textBoxTrack1.Text = String.Empty
Exit Select
Case &HF2
j = buffer(i)
textBoxTrack2.Text = String.Empty
Exit Select
Case &HF3
j = buffer(i)
textBoxTrack3.Text = String.Empty
Exit Select
Case Else
Select Case j
Case &HF1
textBoxTrack1.Text += Convert.ToChar(buffer(i))
Exit Select
Case &HF2
textBoxTrack2.Text += Convert.ToChar(buffer(i))
Exit Select
Case &HF3
textBoxTrack3.Text += Convert.ToChar(buffer(i))
Exit Select
End Select
Exit Select
End Select
i += 1
End While
If checkBoxOnPaper.Checked Then
Dim receipt As String = String.Empty
receipt += vbLf
receipt += "Track1: " & textBoxTrack1.Text & vbLf
receipt += "Track2: " & textBoxTrack2.Text & vbLf
receipt += "Track3: " & textBoxTrack3.Text & vbLf
receipt += vbLf & vbLf & vbLf
Dim printBuff As Byte() = System.Text.Encoding.ASCII.GetBytes(receipt)
If printer__1.WritePrinterDirect(printBuff, printBuff.Length) < 0 Then
Throw New ApplicationException("Failed to print data.")
End If
End If
If printer__1.ClosePrinter() < 0 Then
Throw New ApplicationException("Failed to close connection with printer.")
End If
Catch ae As ApplicationException
textBoxTrack1.Text = ae.Message
textBoxTrack2.Text = ae.Message
textBoxTrack3.Text = ae.Message
Finally
printer__1.Dispose()
End Try
End Sub
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
target = value
Return value
End Function
End Class
__________________________________________________________
|
|
|
|
|
What exactly do you mean by "connecting a printer"??
What version of Windows are you running this app on? 32 or 64 bit? Is your app compiled to target AnyCPU, or x86 or x64?? What bitness is the library you're using?
|
|
|
|
|
I mean it's opening port so my code can pass through.
My problem when it goes through this statement, It says that the memory is corrupt because of the "PrintDriver.dll."
___________________________________________________________
If printer__1.OpenPrinter() < 0 Then
Throw New ApplicationException("Failed to open connection with printer.")
End If
___________________________________________________________
Im using 32bit and x86 compilation. Please,If you have an email, I can pass it to you about my program because I can't explain briefly here. So you can see what I mean sir. 
|
|
|
|
|
You don't need my email.
You also need to contact whoever wrote that .DLL you're using. I've never used it and never heard of it. You've got a specific problem with a third party product. You're best source of information on that problem is whoever wrote the product.
|
|
|
|
|
I see sir..You've got a point. Thank you for your advice sir Dave..
|
|
|
|
|
How is that PrintDriver.dll used - are there COM objects, or do you need DllImport/Declare statements? In the latter case, I'd say that the Marshalling of some types was not correct.
|
|
|
|
|
Hi,
I am accessing App.Major App.Minor in my VB6 application. And my O.S is Windows 7. When i am running this application from "administrator" user application is working fine and these variables are getting accessed. However, when logging to local limited rights user we are getting the error:
Run –time error “326”, Resource with identifier “VERSION” not found”.
So kindly suggest what should we need to do on our Win 7 systems to fix this?
Regards,
Dipesh
|
|
|
|
|
Member 4512356 wrote: So kindly suggest what should we need to do on our Win 7 systems to fix this?
It's not the Win7 system that is "broken", but your programming platform. VB6-support is non-existing.
If you wanna use a modern OS, then the best idea is to do so using a modern language.
Bastard Programmer from Hell
if you can't read my code, try converting it here[^]
|
|
|
|
|
Locate the executable in Windows Explorer, open the Properties window, then the Compatibilty tab. There, select an appropriate version in the "Run with compatibilty mode" combobox. Do not forget the "Change for all users" button.
|
|
|
|
|
Hi,
Thanks for your reply. It did half of the work. After doing these settings i was able to execute my application from normal user account. But as soon as i log into "administrator" user and then try to log back to normal user the error again occurs. That is the problem re occurs after switching to administrator and back. The settings were there but it just stopped working! And even if i redo these settings the problem persists. So, can you suggest some other settings.
|
|
|
|
|
Hi All,
I finally got solution of this issue myself. My application was having a code where I was impersonating a admin user and then doing some stuff. On debugging more i found that my application was not running beyond the point where i was passing token of impersonation to next command. Then i changed the security policy of my Win 7 system and added my user in following security policy "create token" something.. and this resolved my issue. 
Hope it will be useful for somebody.
Regards,
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
