【新手】VB如何连接SQL Sever2000.

[na2650945]

准备添加段代码到模块里。
但是不知道怎么写。
这是老师给点例子。
高手帮看看。

Public CONN As ADODB.Connection

Public RS As ADODB.Recordset

Function ConnOpen()

Dim ASTR As String
Set CONN = New ADODB.Connection
ASTR = "f:\Library_Data.MDF"
CONN.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;DataSource=" & ASTR & ";Persist Security Info = False"
CONN.Open
Set RS = New ADODB.Recordset
With Rs Do
 ActiveConnection = CONN
 CurosorType = adOpenDynamic
 LockType = adLockOptimistic
End With
End Function

[jhone99]

试一下，看有什么问题

[饮水需思源]

dim conn as new connection
With conn
    If .State = adStateOpen Then .Close
    .ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=SA;pwd=SA的密码;database=数据库名"
    .CommandTimeout = 0
    .Open
End With

[帝企鹅已被占用]

www.conneectionstring.com
查sql server

[na2650945]

Private Sub Form_Load()

Call my.ConnOpen

End Sub

准备这样。
但是一运行就出错。

[jhone99]

你这个连接字符串貌似不可以

应该类似
P_Connect.ConnectionString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=127.0.0.1;uid=sa;pwd=123;database=yourdb;"

[jhone99]

[Quote=引用 2 楼 leftie 的回复:]
VB codedim connasnew connectionWith connIf .State= adStateOpenThen .Close
.ConnectionString="driver=SQL Server;server=计算机名或IP地址;uid=SA;pwd=SA的密码;database=数据库名"
.CommandTimeout=0
.OpenEndWi?-
[/Quote]

sql server看这个，你的是access等的

[na2650945]

Public CONN As ADODB.Connection

Public RS As ADODB.Recordset

Function ConnOpen()

Dim ASTR As String
Set CONN = New ADODB.Connection
ASTR = "f:\Library_Data.MDF"
CONN.ConnectionString = "Provider=MSDASQL.1;Password="admin";Persist Security Info=Ture;DataSource=Library_Data.MDF;Initial Catalog=Library"
CONN.Open
Set RS = New ADODB.Recordset
With RS Do
 ActiveConnection = CONN
 CurosorType = adOpenDynamic
 LockType = adLockOptimistic
End With
End Function

编译这段的时候。
提示缺少语句结束。

[na2650945]

CONN.ConnectionString = "Provider=MSDASQL.1;Password="admin";Persist Security Info=Ture;DataSource=Library_Data.MDF;Initial Catalog=Library

With RS Do

这两段变红。

[xn1980216]

使用DAO方法打开数据库：

Dim db as Database
set ws =Create Workspace("","admin","")
set db=ws.OpenDatabase("",dbDriverNoPrompt,True,"driver={SQLServer};server=IP地址;database=数据库名;UID=用户名;PWD=密码")

使用ADO方法：
cn.ConnectionString="driver=SQL Server;server=IP地址;UID=用户名;PWD=密码"&""&;database=数据库名"

[baoyufu]

lz你那是连接access的

[jhone99]

[Quote=引用 8 楼 na2650945 的回复:]

CONN.ConnectionString="Provider=MSDASQL.1;Password="admin";Persist Security Info=Ture;DataSource=Library_Data.MDF;Initial Catalog=Library

[/Quote]

这个四不像

[jhone99]

[Quote=引用 8 楼 na2650945 的回复:]

With RS Do

[/Quote]

With RS

[na2650945]

能否给个连接到数据库。
打开。
查询的例子。
我现在看实验指导。
有点迷糊。

[na2650945]

那个我数据库文件是放在f:\Library_Data.MDF
SQLSever的密码是admin
大家帮写写。

[chinaboyzyq]

[Quote=引用楼主 na2650945 的回复:]
准备添加段代码到模块里。
但是不知道怎么写。
这是老师给点例子。
高手帮看看。
VB codePublic CONNAs ADODB.ConnectionPublic RSAs ADODB.RecordsetFunction ConnOpen()Dim ASTRAsStringSet CONN=New ADODB.Connection
ASTR="f:\Library_Data.MDF"
CONN.ConnectionString="Provider=Microsoft.jet.oledb.4.0;DataSource="& ASTR&";Persist Security Info = False"
CONN.OpenSet RS=New ADODB.RecordsetWith RsDo
ActiveConnection= CONN
CurosorType= adOpenDynamic
LockType= adLockOptimisticEndWithEnd Function
[/Quote]
怀疑你们老师会不会玩数据库，整个一个四不象。

[na2650945]

[Quote=引用 15 楼 chinaboyzyq 的回复:]
引用楼主 na2650945 的回复:
准备添加段代码到模块里。
但是不知道怎么写。
这是老师给点例子。
高手帮看看。
VB codePublic CONNAs ADODB.ConnectionPublic RSAs ADODB.RecordsetFunction ConnOpen()Dim ASTRAsStringSet CONN=New ADODB.Connection
ASTR="f:\Library_Data.MDF"
CONN.ConnectionString="Provider=Microsoft.jet.oledb.4.0;DataSource="& ASTR&";Persist Security Info = False"
CONN.OpenSet RS=New ADODB.RecordsetWith RsDo
ActiveConnection= CONN
CurosorType= adOpenDynamic
LockType= adLockOptimisticEndWithEnd Function

怀疑你们老师会不会玩数据库，整个一个四不象。

[/Quote]
一部分是我改过的。
我想还是我没理解把。

[king06]

1) Cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;" _
& "Initial Catalog= test;Data Source= .;"
2) Cnn.ConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=.;DATABASE=test;UID=sa;PWD=admin;"

[king06]

SERVER同Data Source
DATABASE同Initial Catalog

.代表本地计算机,你可以写IP地址