Imports System Imports System.IO Imports System.Data Imports System.Data.SqlClient
Class MainClass Public Shared Sub Main(ByVal args As String()) Dim con As SqlConnection = New SqlConnection ("server=ARNEPC3;Integrated Security=SSPI;database=Test") con.Open Dim cre As SqlCommand = New SqlCommand ("CREATE TABLE guidtest (id UNIQUEIDENTIFIER PRIMARY KEY,data VARCHAR(50))", con) cre.ExecuteNonQuery Dim ins As SqlCommand = New SqlCommand ("INSERT INTO guidtest VALUES(NEWID(), 'bla bla')", con) ins.ExecuteNonQuery Dim sel As SqlCommand = New SqlCommand ("SELECT * FROM guidtest", con) Dim rdr As SqlDataReader = sel.ExecuteReader While rdr.Read Dim id As Guid = CType(rdr(0), Guid) Dim data As String = CType(rdr(1), String) Console.WriteLine(id.ToString & " " & data) End While rdr.Close Dim drp As SqlCommand = New SqlCommand("DROP TABLE guidtest", con) drp.ExecuteNonQuery con.Close End Sub End Class
Dim cmd As SqlCommand = New SqlCommand(SLQ_string, con) Dim rdr As SqlDataReader = cmd.ExecuteReader While rdr.Read Dim JobName As String = rdr(0) Dim JobHistoryID As Guid = rdr(12)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.