VB和SQL SEVER是如何实现连接的? 我在SQL SEVER中建立了一个SALE数据库,库中有个SALERS表,我在工程里用了一个MSRDC控件,为什么我在文本框中选择了MSRDC1后,但在DataField里不能选择,出现的提示是 “37000:[Microsoft][ODBC SQL Sever Driver][SQL Sever]未能准备语句” 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你是不是没有在管理工具里配制好ODBC数据源呀?你可以去控制面板里搞定不过我赞成楼上二位,改用ADO吧,很好用的喵喵~~~~ 参照如下:http://expert.csdn.net/Expert/topic/1676/1676462.xml?temp=.6119043 建义改用ADO来写。你用RDO控件,你有没有将控件与数据库中的表连接好,有没有连接成功?! '用ADO方式连接数据库'定义变量Private cn As ADODB.ConnectionPrivate rs_SQL As ADODB.Recordset'连接SQL数据库,Set cn = New ADODB.Connectioncn.Provider = "SQLOLEDB"'服务器名NSI20140,数据库名TEST,登陆用户名sa,密码123,cn.Open "Data Source=" & "NSI20140" & ";Initial Catalog=TEST;", "sa", "123"'打开表KFS2Set rs_SQL = New ADODB.Recordsetrs_SQL.Open "KFS2", cn, , adLockOptimistic, adCmdTable 引用ADO 加控件MSHFlexgrid Dim rs As ADODB.Recordset Dim sql As String Dim iLoop As Integer Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=name" Set rs = New ADODB.Recordset sql = "select * from table" rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic Set Me.MSHFLEXGRID.DataSource = rs MSHFLEXGRID.Refresh http://expert.csdn.net/Expert/topic/1665/1665239.xml?temp=.2011682我的贴子!也许对你有用! vb 如何使用 vb制作电子书啊 (菜鸟的问题) 请问 这样的分类汇总可以实现吗 webbrowser对象怎么取得hwnd 当表中有很多的字段时,大家是如何制作输入,编辑窗体的 关于webbrowser的问题 关于打好包的程序不能在win98下成功安装的问题 怎么用VB WINSOCK 发送数据结构 MSFlexGrid怎样控制每列的宽度,使他同最大纪录宽度相同 关于运行速度的问题(第一个正确回答的给20分) 请问playyuer(女㊣爱)兄台 excel复制 如何判断存入数据库的数据的合法性
http://expert.csdn.net/Expert/topic/1676/1676462.xml?temp=.6119043
'定义变量
Private cn As ADODB.Connection
Private rs_SQL As ADODB.Recordset'连接SQL数据库,
Set cn = New ADODB.Connection
cn.Provider = "SQLOLEDB"'服务器名NSI20140,数据库名TEST,登陆用户名sa,密码123,
cn.Open "Data Source=" & "NSI20140" & ";Initial Catalog=TEST;", "sa", "123"'打开表KFS2
Set rs_SQL = New ADODB.Recordset
rs_SQL.Open "KFS2", cn, , adLockOptimistic, adCmdTable
加控件MSHFlexgrid Dim rs As ADODB.Recordset
Dim sql As String
Dim iLoop As Integer
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=name"
Set rs = New ADODB.Recordset
sql = "select * from table"
rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
Set Me.MSHFLEXGRID.DataSource = rs
MSHFLEXGRID.Refresh