【文件属性】:
文件名称:vb远程连接sqlserver数据库
文件大小:2KB
文件格式:FRM
更新时间:2012-09-28 11:20:33
数据库
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim s As String
Dim rs As New ADODB.Recordset
Dim telephone As String
Dim txtsql As String
telephone = Trim(Text1.Text)
'*******************************************************************************************
s = "Driver={SQL Server}; Database=phone; UID=sa; PWD=oallserver; Server=10.47.1.12 "
conn.ConnectionString = s
conn.Open
txtsql = "select * from tellphone where phone_id ='" & telephone & "'"
Set rs = New ADODB.Recordset
rs.Open txtsql, conn, _
adOpenKeyset, _
adLockOptimistic
Text2.Text = rs.Fields(1)
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
网友评论
- 搞定。连接成功!
- 我用的是Express版的,没有连接成功。
- 测试后连不上,还是谢谢了
- 连接成功了!
- 不错!连接成功了!城
- 不错!连接成功了!
- 连接成功了,不错的软件!
- 非常好用,连接成功,谢谢。
- 可以连接,很好
- 试了几次,终于链接,谢了!!
- 测试不成功,我连的是虚拟空间供应商提供的SQL数据库
- 不够全面,不过还是谢谢
- 测试VB+sql server2000,首先的在工程中添加引用 当引用ado版本为2.5时,它引用的具体文件是 msado25.tlb, 如果引用是2.8版本时,它引用的是 msado15.dll, 程序能正常运行
- 可以连接成功。还可以
- 不错!连接成功了!
- 没有服务端的连接?代码残缺了