你先用.NET的管理器ADD Data Connection看十分连接成功,如连接成功将连接串拷贝至代码中即可,如连接不成功请察看SQL的配置
strConnection ="server=(local);uid=credit;pwd=1234;database=credit" Public Function RunStoreProcReturn(ByVal sStoreProduceName As String, Optional ByRef colParms As Collection = Nothing) As DataSet StrSqlConn = New SqlConnection(STRCONN) Dim ds As New DataSet() Dim sqlAdapt As New SqlDataAdapter() Dim sqlCMD As New SqlCommand(sStoreProduceName, StrSqlConn) sqlCMD.CommandType = CommandType.StoredProcedure If Not IsNothing(colParms) Then Dim oParm As SqlClient.SqlParameter For Each oParm In colParms sqlCMD.Parameters.Add(oParm) Next End If Try StrSqlConn.Open() sqlAdapt.SelectCommand = sqlCMD sqlAdapt.Fill(ds) Return ds Catch e As Exception Finally StrSqlConn.Close() End Try End Function
Dim StrConnection as String="Data Source=lxy;initial catalog=credit;persist security Info=False;User id=credit;dworkstation Id=lxy; packed size=4096"
改成
Dim StrConnection as String="Data Source=lxy;initial catalog=credit;User id=credit;password=; Connect Timeout=30"
如果还不行,检查你的帐户名和密码
"server=192.168.0.66;uid=sa;pwd=1q2w3e4r;database=DBName"
Public Function RunStoreProcReturn(ByVal sStoreProduceName As String, Optional ByRef colParms As Collection = Nothing) As DataSet
StrSqlConn = New SqlConnection(STRCONN)
Dim ds As New DataSet()
Dim sqlAdapt As New SqlDataAdapter()
Dim sqlCMD As New SqlCommand(sStoreProduceName, StrSqlConn)
sqlCMD.CommandType = CommandType.StoredProcedure
If Not IsNothing(colParms) Then
Dim oParm As SqlClient.SqlParameter
For Each oParm In colParms
sqlCMD.Parameters.Add(oParm)
Next
End If Try
StrSqlConn.Open()
sqlAdapt.SelectCommand = sqlCMD
sqlAdapt.Fill(ds)
Return ds
Catch e As Exception Finally
StrSqlConn.Close()
End Try
End Function