急求VB ado控件连接SQL数据库的方法,全代码!

用VB中的ado(adodc1)控件连接sql数据库,数据库的表名为UserInfo,VB中添加一个MSHFlexGrid表格控件。麻烦哪位大神帮我把代码写出来,详细一点的。小弟不甚感激。

adodc1.connectionstring="Driver={SQL Server};Server=服务器IP地址;uid=数据库用户名;pwd=数据库密码;database=数据库名称"
adodc1.recordsource="简单查询SQL语句" '//注意,不能是操作查询,操作查询由数据集合来完成
adodc1.refresh
set mshflexgrid1.datasource=adodc1
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2018-03-28
直接这样就行
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "DSN = VMS; UID =; PWD =;"
cnn1.Open "DSN=VMS"

例如 用adodc控件 可以这么进行添加操作:
If chengyun.Adodc1.Recordset.EOF = False Then
MsgBox "该承运单位已存在", 48, "警告提示"
Text1.Text = ""
Text1.SetFocus
Exit Sub
Else
chengyun.cnn1.Recordset.AddNew
chengyun.Adodc1.Recordset("承运单位") = Text1.Text
chengyun.Adodc1.Recordset.Update
chengyun.DataGrid1.Refresh
Unload Me
End If
End If
End Sub
第2个回答  2013-05-11
群 号:238706019 里面有ADO的帮助文件
第3个回答  推荐于2016-01-17
Dim adodc1 As New ADODB.Recordset'(声明变量)
Dim conns As New ADODB.Connection
conns.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=(自填);Password=(密码自填);Initial Catalog=(你的数据库名称);Data Source=(数据库地址或者计算机名称)"

'(以上是使用SQL Server 身份验证连接)
conns.Open
SQL1 = "select * from Userinfo(你的表名) "
adodc1.Open SQL1, conns, adOpenStatic, adLockOptimistic
Set DataGrid1(你的控件名,此处控件名是参考)).DataSource = adodc1
DataGrid1.Refresh'(刷新控件)
adodc1.MoveLast'(移动游标到最后一行)
(有问题再联系)追问

如果我将我的VB程序拷到另一台电脑,用字符串连接的数据库可以使VB程序正常运行吗?如果不用字符串连接数据库,还有什么办法呢?

追答

可以使用.
(如果不用字符串连接数据库,还有什么办法呢?)你是不是想直接用adodc1控件绑定数据库?
如果是的话,你在adodc1的属性页就可以直接设置你要绑定的数据库.

本回答被提问者采纳

急求VB ado控件连接SQL数据库的方法,全代码!
adodc1.connectionstring="Driver={SQL Server};Server=服务器IP地址;uid=数据库用户名;pwd=数据库密码;database=数据库名称"adodc1.recordsource="简单查询SQL语句" '\/\/注意,不能是操作查询,操作查询由数据集合来完成 adodc1.refresh set mshflexgrid1.datasource=adodc1 ...

VB连接SQL数据库
方法一: (ADODC)首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB)。之后在表单设置ADODC控件。然后Form_Load()输入以下代码:Private Sub Form_Load()ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据...

VB怎么用ADO控件连接数据库(用代码连接)
先引用ADO:工程--引用--选择MS ActiveX Data Objects代码:Dim Access_Con As ConnectionSet Access_Con = New ConnectionAccess_Con.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=" & App_Path & "\\FHL数据.mdb;"Access_Con.Open Dim rs As RecordsetSet rs = New Record...

VB怎么连接 SQL 数据库?
1、打开代码窗口,添加引用:Imports System.Data.SqlClient。2、输入以下代码:“Public conn1 As SqlConnection = New SqlConnection _("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”,vb就已经成功连接sql数据库了。3、代码详解:声明关键字Public(因...

vb 用ado连接sql数据库。。。
4->ADO Connection对象的属性方法和事件 1.连接对象(Connection)的主要属性 属性名称 属性说明 Provider 指定要进行连接的提供程序的名称,该属性标识要进行数据连接的数据库类型 CommandTimeOut 设置或者返回产生错误之前执行命令期间需等待的时间,单位为秒 ConnectionTimeOut 设置或者返回产生错误前...

VB连SQL,用ADO如何直接执行SQL语句,把数据写入数据库,求代码!
首先在连上数据库的前提下 Dim rs As ADODB.RecordSet rs.AddNew("insert into student(num,age) values("1","10")")rs.Update

VB如何使用ADODC控件用代码连接数据库
Microsoft ADO Data Control 6.0和Microsoft DataGrid Control 6.0ADODC控件属性设置:1、在ADODC控件上右击,选择ADODC属性2、然后在通用选项卡中选择使用连接字符串,点击生成按钮3、然后选择Microsoft Jet 4.0 OLE DB Provider,点击下一步4、选择要连接打开的Access数据库文件(你要打开的ACCESS文件),...

VB与SQL Server2005数据库是怎样连接的、
使用VB和ADO连接SQL Server 2005数据库以显示数据,需引入ADO引用和MSFlexGrid控件。通过定义ADO对象和初始化连接,实现数据库连接。设置ConnectionString为数据库提供者、服务器和数据库名,使用Windows身份验证。打开连接,执行SQL查询语句并打开记录集。使用MSFlexGrid控件显示数据。初始化控件列数为字段数量...

vb中如何使用数据库
首先,引用ADO库:通过工程中的引用功能,选择“ADO"("工程"\/"引用"\/Microsoft ActiveX Data Objects 2。X Library")。接着,定义连接对象和记录集对象。连接数据库时,有混合验证和集成验证两种方式。混合验证使用用户名和密码,代码如下:cn。ConnectionString = "Provider=SQLOLEDB。1;Persist Security...

VB如何链接数据库SQL
1、打开代码窗口,添加引用:Imports System.Data.SqlClient。2、输入以下代码:“Public conn1 As SqlConnection = New SqlConnection _("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”,vb就已经成功连接sql数据库了。3、代码详解:声明关键字Public(...

相似回答