菜鸟NO.1提问!!!

Question

怎么用ADO与数据库的邦定啊下面是我抄书的,可是有错!
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Dim conn As SqlClient.SqlConnection
        conn = New SqlClient.SqlConnection("server=(local);database=Northwind;")
        conn.Open()
        Dim mysql As String
        mysql = "select * from [Products]"
        Dim cmd As SqlClient.SqlCommand
        cmd = New SqlClient.SqlCommand(mysql, conn)
        Dim reader As SqlClient.SqlDataReader
        reader = cmd.ExecuteReader
        DataGrid1.DataBind()
        reader.Close()
        Dim myconnect As String    End Sub
关键帮我看下怎么说     conn.Open()  出错了!

Answer 1

是不是程序有错,有错的话请给出正确的代码
不胜感谢!还有server=(local)   server 是要填什么?服务器?还是默认的(local) (Windows NT)?

Answer 2

conn = New SqlClient.SqlConnection("server=(local);database=Northwind;")连接字符串有问题？改成 conn = New SqlClient.SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=Northwind;")或SqlConnection conn = new SqlConnection( " uid=sa;pwd=;initial catalog=Northwind;data source=127.0.0.1;Connect Timeout=900")试试

Answer 3

local 是你在网络上的机器名吧

Answer 4

还是不行的 conn.open()过不去谁有成功的连接代码?

Answer 5

1\将sub 与 end sub中的代码放入
if not ispostback thenend if
2\server=(local);database=Northwind 有问题,采用 yd(达子) 说的
3\conn.open 前应该
try
conn.open
catch ex as exception
conn.dispose
msg_label.text=ex.message.tostring
end try
4\
 reader = cmd.ExecuteReader
应该
同上一样处理
5\要这样
if reader.hasrows then
datagrid1.datasource=reader
datagrid1.databind
end if

Answer 6

Try
            Dim conn As SqlClient.SqlConnection
            conn = New SqlClient.SqlConnection("Database=Northwind;Server=localhost;")
            conn.Open()
            Dim mysql As String
            mysql = "select * from user"
            Dim cmd As SqlClient.SqlCommand
            cmd = New SqlClient.SqlCommand(mysql, conn)
            Dim reader As SqlClient.SqlDataReader
            reader = cmd.ExecuteReader
            DataGrid1.DataSource = reader
            DataGrid1.DataBind()
        Catch ex As Exception        End Try
    
   我改了但还是不行,运行结果什么也没有
    
哪位大虾帮俺看下啊,郁闷中...........