[ MishaP @ 16.11.2008. 09:46 ] @
Dim conn As New SqlClient.SqlConnection()
Dim cmd As New SqlClient.SqlCommand()
conn.ConnectionString = "Data Source=dd;Initial Catalog=petrolSQL;Integrated Security=True"
conn.Open()

Dim orderSQL As String = "select * from dbo.users1 where username like '" & UsernameTextBox.Text & "' and password like '" & PasswordTextBox.Text & "'"
Dim adapter As SqlDataAdapter = New SqlDataAdapter(orderSQL, conn)
Dim dataSet As DataSet = New DataSet()
dataSet.Tables.Clear(
adapter.Fill(dataSet)
Dim a As String = dataSet.Tables.Count
If a = 1 Then MsgBox("ddd")
Prvim login firmu u visual studio 2008. Koristum prethodini kod za povezivanje na bazu ali nešto ne štima. Ima li neko ideju kako se povezati
[ Prokleta_Nedelja @ 17.11.2008. 07:53 ] @
Probaj ovako

Code:

Dim conn As New SqlClient.SqlConnection()
Dim cmd As New SqlClient.SqlCommand()
conn.ConnectionString = "Data Source=dd;Initial Catalog=petrolSQL;Integrated Security=True"
conn.Open()

Dim orderSQL As String = "select * from dbo.users1 where username like '" & UsernameTextBox.Text & "' and password like '" & PasswordTextBox.Text & "'"
Dim cit as SqlDataReader
conn.Open()
cit=cmd.ExecuteReader()
if cit.HasRows=true then
  MsgBox ("ok")
Else
  MsgBox ("greska")
End If
conn.Close()