'连接sql数据库 server为数据库服务器 uid为用户名 pwd为用户密码 database为数据库id
Public Sub ConSql(ByVal Server As String, ByVal Uid As String, ByVal Pwd As String, ByVal DataBase As String)
Dim cnn As SqlConnection
cnn = New SqlConnection()
cnn.ConnectionString = "server=" & Server & ";uid=" & Uid & " ;pwd= " & Pwd & ";database=" & DataBase
Console.WriteLine(cnn.ConnectionString)
cnn.Open()
'If cnn.State = ConnectionState.Open Then
' Console.WriteLine("ok")
'End If
End Sub
Dim cnn As New SqlConnection()
cnn.ConnectionString = "user id=sa;password=sa;initial catalog=northwind;data source=localhost;Connect Timeout=30"
cnn.Open()
If cnn.State = ConnectionState.Open Then
Label1.Text = "ok"
End If
Dim sql As SqlCommand
sql = New SqlCommand("select * from products", cnn)
Dim reader As SqlDataReader
reader = sql.ExecuteReader()
DataGrid1.DataSource = reader
DataGrid1.DataBind()
reader.Close()
cnn.Close()