ADO

Question

我是用VB 6.0和Access写的
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "C:\图书馆.mdb"
Dim cn As New ADODB.Connection
Dim r1 As New ADODB.Recordset
现在我想修改图书馆.mdb中的Readers表和添加BroIfo表中的数据,不用控件,我应该怎么做?我已经花了不少时间了,但没有结果,呵呵!

Answer 1

去看看tsql语句把
alter table
insert into

Answer 2

连接数据库
Dim cn As New ADODB.Connection
Dim r1 As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\图书馆.mdb;Persist Security Info=False"
cn.Open
插入数据
dim strSQL as string
strSQL="insert into broinfo (字段1,字段2.....) values(字段1的值,字段2的值.....)"
至于修改表，不知道你是要修改表结构还是修改数据?

Answer 3

Dim cn As New ADODB.Connection
Dim r1 As New ADODB.Recordset
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "C:\图书馆.mdb"
cn.open
'上面是和数据库建立连接并打开这个连接
'下面的操作数据库的SQL语句
dim strsqll as string
strsql="select * from broinfo "
r1.open strsql,cn,adOpenStatic, adLockReadOnly
set datagrid1.datasource=r1
set r1=nothing
strsql是操作数据库的SQL语句,你需要对数据库进行怎么样的操作就怎么写

Answer 4

我用的sql，具体是adodc1.recordset.addnew

Answer 5

Dim cn As New ADODB.Connection
Dim r3 As New ADODB.Recordset
Dim strsql3 As String
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "C:\Documents and Settings\彭龙城.IMAGE\桌面\Library\图书馆.mdb"
cn.Open
strsql3 = "select * from BrowIfo"
r3.Open strsql3, cn, adOpenKeyset, adLockOptimistic
r3.AddNew r3.Fields("读者ID") = Text1.Text
 r3.Fields("图书ID") = Text2.Text
 r3.Fields("借书日期") = Date
 r3.Fields("归还日期") = Date + 30
 r3.Fields("借书是否超期") = 0
 r3.Update
 r3.Close
 cn.close
 set cn=nothing
我是这样写的,但是还是没有修改表数据.为什么?

Answer 6

是否应该写成：
 r3.Fields("读者ID").value = Text1.Text
 r3.Fields("图书ID").value  = Text2.Text
 r3.Fields("借书日期").value  = Date
 r3.Fields("归还日期").value  = Date + 30
 r3.Fields("借书是否超期").value  = 0
或
 r3！读者ID= Text1.Text
 r3！图书ID= Text2.Text
 r3！借书日期= Date
 r3！归还日期= Date + 30
 r3！借书是否超期= 0
另，建议不要使用中文字段名

Answer 7

r3.Fields("读者ID").value = Text1.Text
 r3.Fields("图书ID").value  = Text2.Text
 r3.Fields("借书日期").value  = Date
 r3.Fields("归还日期").value  = Date + 30
 r3.Fields("借书是否超期").value  = 0
也没有效果的,昨天我试过了

Answer 8

dim strSQL as string
strSQL="insert into broinfo (字段1,字段2.....) values(字段1的值,字段2的值.....)"
接下来的上传语句应该怎样写??