vb远程连接sqlserver数据库

时间：2012-09-28 11:20:33
【文件属性】：

文件名称：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数据库
  • 不够全面，不过还是谢谢
  • 测试ＶＢ＋sql server2000，首先的在工程中添加引用 当引用ado版本为2.5时,它引用的具体文件是 msado25.tlb, 如果引用是2.8版本时,它引用的是 msado15.dll, 程序能正常运行
  • 可以连接成功。还可以
  • 不错！连接成功了！
  • 没有服务端的连接？代码残缺了

相关文章