vbaccesssql
Ⅰ 用vb连接access数据库以后，如何一次性执行多条sql语句
使用ACCESS查询对象是无法一次运行多个
SQL语句
的，但是通过ACCESS
VBA代码可以实现一次运行多个SQL语句。下面是具体实现方案;
1)新建一个ACCESS窗体，窗体添加一个命令按钮；
2）编写按钮单击事件过程
Private
Sub
Command1_Click()Dim
strSql
as
stringstrSQL="Update
Policy
SET
LatestDueDate=Year(Date())
&
'-'
&
Format(PolicyDate,'mm-dd')"
DoCmd.RunSql
strSQL
'运行第一个更新语句strSQL="UPDATE
Policy
SET
LatestDueDate=
DateAdd('yyyy',1,LatestDueDate)
WHERE
(((Month(Date())-Month(LatestDueDate))
>
6)
and(PaymentMode='H'))"
DoCmd.RunSql
strSQL
'运行第二个更新语句
End
Sub
跟着点击该命令按钮就可以一次执行两条语句了。
Ⅱ vb access里面动态的表导入到SQL2000里面
你为啥整得如此复杂，其实ACCESS由网络连接表功能，直接连接SQL Server,而且VB能直接操作。VB的代码也不是这么个写法，再说你的两个连接不是在一起的，怎么可能表对表能操作，能看得出来你是用连接功能，但是这样错效率真心太差。
'VB6.0我建议你用ADODC控件，不要用MSADO15.dll，那个要SP3补丁支持，不好安装。
就举个通用的例子（控件的更简单）,不使用控件，就要引用ActiveXDataControl2.5。
'VBA自带的编程模块也需要引用,VBS不需要。
'现在开始写代码：
'//ADO连接对象和数据集合申明与实例化
DimcndbAsADODB.Connection
DimrsdbAsADODB.RecordSet
DimconnAsADODB.Connection
DimrsAsADODB.RecordSet
privatefunctiondimcon()
Setcndb=newADODB.Connection
Setrsdb=newADODB.Recordset
Setconn=newADODB.Connection
Setrs=newADODB.Recordset
conn.ConnectionString="Driver={SQLServer};Server=172.17.10.1;DataBase=SQLMove_db;UID=sa;PWD=123"
try
conn.Open()
catch
msgBox("连接失败！")
Endtry
'//查询出ACCESS数据,ACCESS方相对路径，是本地的不需要判断连接
cndb.Open("Provider=microsoft.Jet.OLEDB.4.0;DATASOURCE="&app.Path&@"/db.mdb")
rsdb.Open"select*fromtbstr"
ifNOTrsdb.EOFTHEN
Fori=0torsdb.RecordCountstep1
inser(参数来自循环集合)
nexti
EndIf
endfunction
privatefunctioninser()
’//这里用冷连接方式去插入数据，防止连接中断异常
Dimsql
sql="select*fromtbStr";
rs.Opensql,conn,3,1
IfNotrs.EOFthen
rs.AddNew()
rs.Fields("...")=...
rs.F...
rs.Update
rs.MoveNext
endfunction
Ⅲ 怎样在VB中用SQL语句向access表中添加数据
楼上正解,也可以不用ADODC控件
Dim
一个New
ADODB.Connection
(
如cn)
cn.ConnectionString=数据库连接字符
cn.open
cn.execute(sql语句)
sql语句为insert之类的插入或update类的更新语句,就可以改写或添加ACCESS的数据了.
Ⅳ 在VB下,怎样把一个原来用access数据库的程序改成sql的
首先先建好数据库，把数据库导入SQL服务器，假设数据库名称为DATA1
原先ACCESS的数据库连接语句为"Driver={Microsoft
Access
Driver
(*.mdb)};DBQ="
&
App.Path
&
"\data1.mdb;pwd=;ReadOnly=True"
现在改成"Driver={SQL
SERVER};SERVER=192.168.1.168;Uid=SA;Pwd=;Database=DATA1"
其他地方都不用改的，就这么简单。SERVER=数据库的IP地址;Uid=数据库帐号;Pwd=数据库密码;Database=数据库名称
Ⅳ VB 操作 access 以及 sql
1、access迁移到sql，VB内的sql语句是一定需要更改的；
2、客户端没有安装sql，也是可以运行的，只要安装你VB程序的打包安装程序，连接的dll都会自行注册的。
Ⅵ VB Access SQL语句语法错误
估计你的key字段是自动编号的，在OLEDB里不能结自动编号进地处理，而在ACCESS里有很多功能也是OLEDB所没有，如replace函数。
strSQL
=
"Insert
Into
corporation_structure(DeptName,Deep,Parent,RemoveFlag)
"
&
_
"Values
(
'"
&
sDeptName
&
"'
,'"
&
sDeep
&
"'
,'"
&
sParent
&
"'
,
False)"
这样试试
Ⅶ vb连接access数据库SQL语句
Private
Sub
Command1_Click()
Dim
Cnn
As
New
ADODB.Connection
Dim
Rs
As
New
ADODB.Recordset
Dim
ConnStr
As
String
ConnStr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\note.mdb"
Cnn.Open
ConnStr
Cnn.CursorLocation
=
adUseClient
Rs.Open
"Select
**
From
*表
where
=条件",
Cnn,
adOpenKeyset,
adLockPessimistic
把&
App.Path
&
"\note.mdb这个换成你的数据库就行了
Ⅷ VB用access好还是SQL好
主要看你的使用功能，正如上面几位说的，SQL server功能强大，效率高，安全性好，但同时其使用和维护起来也需要较高的专业知识，而ACCESS更容易掌握一些，更是刚入门，初学者学习数据库的好软件；所以说你不是商业用途或者只是自己学习之用，那么可以先用ACCESS练习，等掌握相关使用方法后再改用SQL SERVER不迟（ACCESS可以直接升迁至SQL server）。
所以我建议先用ACCESS，等自己熟练以后再用SQL SERVER
Ⅸ 求高手 vb中怎么将access数据库连接改成sql数据库连接
用ADO连接改一个地方：
连接字符串的驱动器和数据源属性：
SQL格式是：
adodc1.connectionstring="driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=密码;database=数据库名"
分别要写清驱动器名；服务器名；用户名；密码；数据库名
ACCESS也一样
adodc1.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=文件路径;UID=用户名;Pwd=密码"
这就是两者的根本区别。我建议你用ADO控件来连接理解会直观一点，用ADO你未必理解。
ADO控件直接给他的ConnectionString属性和RecordSource属性赋值，太复杂的代码容易把蚂蚁想象成大象。
Ⅹ VB连接access数据库改为连接sql server数据库
要使用ADO控件，首先当然要添加控件了，在菜单“项目”－“组件”
中选中“Microsoft ADO Data Control 6.0 (SP6) (OLEDB)”，将其添加到控件面板中，相应的控件文件是：MSADODC.OCX
Dim sql
sql = "相应的操作数据库的sql语句"
With Adodc1
.ConnectionString = "Data Source=数据库服务IP地址;Initial Catalog=数据库名称;User Id=数据库用户名;Password=数据库密码;"
.CommandType = adCmdText
.RecordSource = sql
.Refresh
end with