- 博客(0)
- 资源 (4)
- 收藏
- 关注
vb远程连接sqlserver数据库
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 = "Dr
2009-09-08
VB连接sqlserver数据库
Dim s As String
Dim rs As New ADODB.Recordset
s = "Driver={SQL Server}; Database=trsip; UID=sa; PWD=oallserver; Server=10.47.1.12 "
conn.ConnectionString = s
conn.Open
txtsql = "select top 1 * from book"
Set rs = New ADODB.Recordset
rs.Open txtsql, conn, _
adOpenKeyset, _
adLockOptimistic
2009-09-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人