VB+SQL server 有段代码帮我解释下啊!总是错误提示

来源:百度知道 编辑:UC知道 时间:2024/05/15 11:46:27
Public con As New ADODB.Connection
Public rct As ADODB.Recordset
Public Function connecttoserver() As Boolean
con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jiudianguanli;Data Source=M4W0ESVBMF93J2U"
con.ConnectionTimeout = 30
con.Open !!!!!!!!!!!!!!!!!!!!!!!!
connecttoserver = True
End Function

Public Function disconnect() As Boolean
If con.State = adStateOpen Then
con.Close
End If
disconnect = True
End Function
Public Function querydata(ByVal strsql As String) As Boolean
On Error Resume Next
Set rct = New ADODB.Recordset
Call rct.Open(strsql, con, adOpenDynamic, adLockOptimistic, -1)
If Err.Number > 0 Then
Err.Clear
querydata = False
Else
querydata = True
End If
End Function

建立连接的前提,你已经建立了个sqlserver 数据库.
Password填写你登陆sqlserver的密码
User ID=你的sqlserver用户名
Data Source=sqlserver 数据库名可以在服务管理器看到

你按这个模式改写下连接字符
con.ConnectionString="Provider=SQLOLEDB.1;Password=你的密码;Persist Security Info=True;User ID=你的用户名;Data Source=数据库名可以在服务管理器看到"

明白了么?

con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jiudianguanli;Data Source=***M4W0ESVBMF93J2U(这里换成服务器IP看看)**"

我在网上也看到类似的很多错误
推荐你去 www.csdn.net上面去问问高手!! 那里高手多
VB 我学的不是很好`` 偶现在上班也弄不了
呵呵
PS..偶是搞c#的...

没有加上数据库的用户名和密码。