连接SQL Server数据库
'参数:ServerName 服务器名,DBName 数据库名
Public Sub ConnSQLServer(ByVal ServerName As String, ByVal DBName As String)
With mCnnDB
.ConnectionString = "uid=;pwd= ;driver={SQL Server};" & _
"server=" & ServerName & _
";database=" & DBName
.Open()
End With
End Sub
'作用: 连接SQL Server数据库
'参数:ServerName 服务器名,DBName 数据库名,UserID 用户名,UserPwd 用户密码
Public Sub ConnSQLServer(ByVal ServerName As String, ByVal DBName As String,ByVal UserID As String, ByVal UserPwd As String)
With mCnnDB
.ConnectionString = "uid=’” & UserID & “’;pwd=’” & UserPwd & _
”’;driver={SQL Server};" & "server=" & ServerName & _
";database=" & DBName
.Open()
End With
End Sub
这是一段例子
Dim cmdCities As New SqlCommand("getUniqueCities", SqlConnection1)
Dim strDrID As String
strDrID = dgDoctors.Items(dgDoctors.SelectedIndex).Cells(1).Text
Dim cmdSpecialty As New SqlCommand("getDrSpecialty", SqlConnection1)
cmdSpecialty.CommandType = CommandType.StoredProcedure
Dim paramSpecialty As New SqlParameter("@dr_id", SqlDbType.Char, 4)
paramSpecialty.Direction = ParameterDirection.Input
paramSpecialty.Value = strDrID
cmdSpecialty.Parameters.Add(paramSpecialty)
Dim drSpecialty As SqlDataReader
SqlConnection1.Open()
drSpecialty = cmdSpecialty.ExecuteReader()
lstSpecialties.DataSource = drSpecialty
lstSpecialties.DataTextField = "Specialty"
lstSpecialties.DataBind()
drSpecialty.Close()
SqlConnection1.Close()
你把你这些参数添加到DataAdapter的SelectCommand的Parameters集合里了吗?