SQL Data access using code

[AnLag]

Hi, Am new in VB.Net.I want to know how to call for data from SQL server usin code. Thanks

[Reverend Jim]

Have a look at this code snippet for examples.

[Mr.M]

You can try this www.dreamincode.net/forums/topic/300487-creating-sql-server-stored-procedures-and-using-them-in-vbnet/

[AnLag]

Thanks Jim. But can u help me. I get this message when i try running my project:
(Unable to cast object of type 'ADODB.InternalField' to type 'System.String'.)
Can u help me out. Thanks

[Reverend Jim]

If you post the code we can have a look. Please identify which line is throwing the error.

[AnLag]

Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset

con.Open("DSN=BRM", "SA", "SA'")

rec.Open("select * from singin where id='" & Me.TextBox1.Text & "'", con)
If rec.EOF Then
    MsgBox("User ID does not exists", vbCritical)
    Me.TextBox1.Focus()
    Exit Sub
ElseIf Not rec.EOF Then
    Me.Label3.Text = rec.ToString("name")
    Exit Sub
End If

Actually, i use this code in vb 6.0 but it luks like i cant use the traditional ADO instead of ADO.Net

[Reverend Jim]

Your problem is likely in your connection string. Sample ADO code for SQL Server is

ListView1.Items.Clear()

Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset

con.Open("Driver={SQL Server};Server=.\SQLEXPRESS;Database=PUBS;Trusted_Connection=yes;")
rec.Open("SELECT au_lname,au_fname,zip FROM authors WHERE au_lname like 'S%'", con, CursorTypeEnum.adOpenStatic)

Do Until rec.EOF
    ListView1.Items.Add(New ListViewItem({rec("au_lname").Value, rec("au_fname").Value, rec("zip").Value}))
    rec.MoveNext()
Loop

rec.Close()
con.Close()

[AnLag]

Thanks Jim. But if u refer to my code, this is where i have a problem;

Me.Label3.Text = rec.fields("name")

Am trying to display the name column of the record that i queried. Can you help me out with it?
Thanks

[Reverend Jim]

Try

rec("name").Value

[AnLag]

Thank u very much Jim. Your code wroked perfectly. Thank once again. U genius.