Kada pokusam da se povežem sa SQL bazom, iz VB.NET 2005 aplikacije, koristio sam sledeći kod:
Code:
Private Sub OpenDataReader()
Dim strConn As String = "Server=localhost;Database=Northwind;" + _
"Integrated Security=SSPI"
Dim cnnNwind As SqlConnection = New SqlConnection(strConn)
cnnNwind.Open()
Dim strSQL As String = "SELECT * FROM Shippers"
strSQL += "; SELECT EmployeeID,FirstName,LastName FROM Employees"
Dim cmdReader As SqlCommand = New SqlCommand(strSQL, cnnNwind)
cmdReader.CommandText = CommandType.Text
Dim sdrReader As SqlDataReader = cmdReader.ExecuteReader(CommandBehavior.CloseConnection)
sdrReader = cmdReader.ExecuteReader
With sdrReader
If .HasRows Then
While .Read
lstShippers.Items.Add(.Item(0).ToString + " - " + .Item(1).ToString)
End While
While .NextResult
While .Read
lstEmployees.Items.Add(.Item(0).ToString + " - " + .Item(1).ToString + " " + .Item(2).ToString)
End While
End While
End If
.Close()
End With
End Sub
Private Sub OpenDataReader()
Dim strConn As String = "Server=localhost;Database=Northwind;" + _
"Integrated Security=SSPI"
Dim cnnNwind As SqlConnection = New SqlConnection(strConn)
cnnNwind.Open()
Dim strSQL As String = "SELECT * FROM Shippers"
strSQL += "; SELECT EmployeeID,FirstName,LastName FROM Employees"
Dim cmdReader As SqlCommand = New SqlCommand(strSQL, cnnNwind)
cmdReader.CommandText = CommandType.Text
Dim sdrReader As SqlDataReader = cmdReader.ExecuteReader(CommandBehavior.CloseConnection)
sdrReader = cmdReader.ExecuteReader
With sdrReader
If .HasRows Then
While .Read
lstShippers.Items.Add(.Item(0).ToString + " - " + .Item(1).ToString)
End While
While .NextResult
While .Read
lstEmployees.Items.Add(.Item(0).ToString + " - " + .Item(1).ToString + " " + .Item(2).ToString)
End While
End While
End If
.Close()
End With
End Sub
Kada se kod iskompajlira javlja gresku "Incorrect syntax near '1' " u liniji koda gde sam definisao promenljivu sdrReader
[Ovu poruku je menjao Shadowed dana 09.04.2008. u 14:40 GMT+1]
pedja