求vb连接sql server有源数据库的方法!该怎么处理
求vb连接sql server有源数据库的方法!!!
服务器ip: 192.168.0.1
数据源名称: server
用户名: sa
密码: sa
表名：tabtime
字段名：station
odbc数据源测试连接成功.
本人没用过sql server数据库,所以请各位大侠给点代码或连接方法，还有打开记录集的方法．．期待中
------解决方案--------------------
dim cnn as new ADODB.Connection
dim rs as Adodb.recordset
dim s as string,i as long
cnn.CursorLocation = 3 '
cnn.CommandTimeout = 30
cnn.Open "Provider=SQLOLEDB;Data Source=192.168.0.1;User ID=sa;Password=sa;Initial Catalog=tempdb;Persist Security Info=True "
set rs = nothing
set rs = cnn.execute( "select station from tabtime ")
while not rs.eof
for i = 0 to rs.fields.count - 1
s = s & rs(i) & vbtab
next
s = s & vbcrlf
rs.movenext
wend
msgbox s
服务器ip: 192.168.0.1
数据源名称: server
用户名: sa
密码: sa
表名：tabtime
字段名：station
odbc数据源测试连接成功.
本人没用过sql server数据库,所以请各位大侠给点代码或连接方法，还有打开记录集的方法．．期待中
------解决方案--------------------
dim cnn as new ADODB.Connection
dim rs as Adodb.recordset
dim s as string,i as long
cnn.CursorLocation = 3 '
cnn.CommandTimeout = 30
cnn.Open "Provider=SQLOLEDB;Data Source=192.168.0.1;User ID=sa;Password=sa;Initial Catalog=tempdb;Persist Security Info=True "
set rs = nothing
set rs = cnn.execute( "select station from tabtime ")
while not rs.eof
for i = 0 to rs.fields.count - 1
s = s & rs(i) & vbtab
next
s = s & vbcrlf
rs.movenext
wend
msgbox s