关于VB和SQL server －解决后送100分

Question

如何用vb访问远程sqlserver服务器？不用dsn方式，能不能直接将连接串直接写入程序中？？另外请教各种sql语句在vb中的用法。

Answer 1

dim tmpac  as new adodb.connection
dim tmprs  as new adodb.recordset
With tmpac     '打开数据库连接
     If .State = adStateOpen Then .Close
     .ConnectionString = "driver=SQL Server;server=服务器名或IP地址;uid=sa;pwd=;database=数据库名
     .CommandTimeout = 120
     .Open
End Withif tmprs.state=adstateopen then tmprs.close
tmprs.open "select * from tablename ",tmpac,adopenkeyset,adlockreadonly
set flexgrid.datasource=tmprs
set tmprs=nothing

Answer 2

dim gconnection as New ADODB.Connection
Set gconnection = New ADODB.Connection
gconnection.Open "driver={sql server};server=服务器名;database=库名", "sa", ""

Answer 3

把server改为要连接的服务器名或IP

Answer 4

我有个问题;当我用“sp_help 存储过程名"在vb中执行后，有两个结果集，但我如何得到第二个结果集呢？谢谢，因为手上的分都用完了，能解决的以后补分！！

Answer 5

连接方式如上.strSql='insert into table名(字段名) values(值)' 值字段是字符型,则值要加双引号,数值则不必strSql='update table set 字段名=值 where 条件'  注意点同上strSql='delete from table where 条件'    同上如果一个连接已经存在,(如果cn 是一个已经打开的连接) 则可以
cn.execute(strSql)如果要返回一个记录集. 
则 set rs=cn.execute(strSql)

Answer 6

你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的Private Sub ComOK_Click()
   Dim SQLstr As String,cnstr AS String
　 Dim cn AS New ADODB.Connection'连接对象
   Dim rs As New ADODB.Recordset'记录集对象
   cnstr = cn.open "Provider=SQLOLEDB;Driver={SQL Server};Server=服务器名;Uid=用户名;Pwd=密码;Database=数据库名" '连接字符串
   cn.open' 打开数据库连接
   rs.CursorLocation =adUseClient
   sqlstr="slect * from XXX表"
   rs.open sqlstr,cn,3,3'执行SQL语句，并返回记录
   set datagrid1.datasource=rs
   datagrid1.refresh
   rs.close'关闭记录集对象
   set rs=nothing
End Sub

Answer 7

如果我用一条insert语句，里面要插入的值有textbox里输入的值，有指定的数值和字符，请大家帮忙写个完整的句子！谢谢！！

Answer 8

Dim SQLStr As String
   Dim CnnStr As String
   Dim DBConn As New ADODB.Connection '连接对象
   Dim Recset As New ADODB.Recordset '记录集对象
   CnnStr = DBConn.Open("Provider=SQLOLEDB;Driver=SQL Server;Server=server;Uid=user1;Pwd=123456;Database=database")   '连接字符串
   DBConn.Open ' 打开数据库连接
   Recset.CursorLocation = adUseClient不行啊，报错：“缺少函数或变量”-----啊救命啊！！！

Answer 9

to dollyxz(xz) ：可用以下方法
set recset = recset.NextRecordSet
别忘了给我加分喽

Answer 10

CnnStr = "Provider=SQLOLEDB;Driver=SQL Server;Server=server;Uid=user1;Pwd=123456;Database=database")   
DBConn.Open CnnStr