vb连接ms sql server 数据库 菜鸟问 在线等待…………………………～！！！！！

[jealousme]

用vb连接远程数据库，谁给出一个简单的例子？？？？
Dim sqlcon As New ADODB.Connection

Public Sub connect()

With sqlcon
.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password＝＆＆;Initial Catalog=coursedesign;Data Source=＊＊＊.＊＊.79.181"
.Open
End With
End Sub

总是连不上，请教了。。。。。。

[hugeforest]

.ConnectionString = "driver={sql server};server=Ip;uid=sa;pwd=;database=databasename"

[luzufu]

Public Function ConnectServer(StrServerName As String, StrUserID As String, StrPassword As String, StrDBSName) As Boolean
'********************************************************************************'
'* 过程名(函数) ：ConnectServer *'
'* 功能 ：根据调用者提供的参数,打开指定的数据库 *'
'* 使用的全局变量：Cn *'
'* 调用的过程 ：无 *'
'* 使用的Table ： *'
'* 入口参数 ：StrServerName:服务器名 *'
'* StrUserID:数据库用户名 *'
'* StrPassword:数据库密码 *'
'* StrDBSName:数据库名 *'
'* 返回值 ：打开成功返回 TRUE,否则返回 FALSE *'
'* 开发者 ：彭彪 *'
'* 日期 ：2003-05-08 *'
'********************************************************************************'
On Error GoTo connecterrhand
Set CnSql = New ADODB.Connection
CnSql.ConnectionString = "SERVER=" & StrServerName & ";PROVIDER=SQLOLEDB" & _
";DATABASE=" & StrDBSName & ";UID=" & StrUserID & ";PWD=" & StrPassword
CnSql.ConnectionTimeout = 10
CnSql.Open
ConnectServer = True '成功
Exit Function
connecterrhand:
ConnectServer = False '失败
End Function

[julieyan]

"Driver=SQL SERVER;Server=YD;DataBase=FYZX1;UID=sa;PWD=;Connection=adConnectAsync"
YD--服务器名
FYZX1--数据库名
SA--SQLSERVER默认用户名,口令为空

[aiur2000]

mdac 2.7

[luzufu]

Public Function ConnectServer(StrServerName As String, StrUserID As String, StrPassword As String, StrDBSName) As Boolean
'********************************************************************************'
'* 过程名(函数) ：ConnectServer *'
'* 功能 ：根据调用者提供的参数,打开指定的数据库 *'
'* 使用的全局变量：CnSql *'
'* 调用的过程 ：无 *'
'* 使用的Table ： *'
'* 入口参数 ：StrServerName:服务器名 *'
'* StrUserID:数据库用户名 *'
'* StrPassword:数据库密码 *'
'* StrDBSName:数据库名 *'
'* 返回值 ：打开成功返回 TRUE,否则返回 FALSE *'
'********************************************************************************'
On Error GoTo connecterrhand
Set CnSql = New ADODB.Connection
CnSql.ConnectionString = "SERVER=" & StrServerName & ";PROVIDER=SQLOLEDB" & _
";DATABASE=" & StrDBSName & ";UID=" & StrUserID & ";PWD=" & StrPassword
CnSql.ConnectionTimeout = 10
CnSql.Open
ConnectServer = True '成功
Exit Function
connecterrhand:
ConnectServer = False '失败
End Function

[jealousme]

揭帖！！！！呵呵。。。。。。。

不过，剩下的，谁可以给出对数据库操作的一般性操作？？？？

比如说：

Public Sub execute2(sql1 As String) as adodb.recordset

End Sub