请教各位大侠ado控件与access的编程

[zy19741023]

想利用ado的字符串连接方式与access编程，能实现添加，查询，显示等功能。要程序代码，越详细越好，谢谢。

[pxpy]

自己试着编啊，不懂的地方再问，那样效果会更好的，这是我的亲身体验。

[ostrich3000]

连接数据库：
connect_string = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=db1.mdb;Persist Security Info=True"
my_connection.Open connect_string
添加：
strsql="insert into table(field1,field2)values(val1,val2)"
my_connection.Execute strsql
其它类似，同意楼上观点，自己试着编效果更好一些。

[iiboy]

connectstring="Driver=Microsoft Access (*.mdb);database=db.mdb"
conn.open connectionstring
然后就可以使用conn.execute(SQL Query String)方法执行SQL语句了。

[XMLWeb]

我有个例子，把你的email 留下我传给你
[e-mail]

[zjcxc]

Sub access()
Dim iRe As ADODB.Recordset
Dim iConc As String

iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\My Documents\客户资料1.mdb"
Set iRe = New ADODB.Recordset
With iRe
.CursorLocation = adUseClient
.Open "select * from [abc#txt]", iConc, adOpenKeyset, adLockOptimistic
.PageSize = 10

End With
MsgBox iRe.Fields("userid").Properties("title")
End Sub

[liaorui]

用VB能自动生成呀...
同意一楼的..

[trendvb]

你是新手吧
为什么用控件？
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open strcn
rs.open "select * from tb",cn,3,1

ok!

[jpinglee]

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
cn.open "Provider=;data source="
cn.cursorlocation=aduseclient
sql="select * from tb" '查询
OR
sql="insert into table_name(fieldlist..) values(fieldvaluelist...)" '添加
OR
sql="delete form table where ... " '删除

rs.open "select * from tb",cn,3,1

[yoki]

不要想着什么都要现成的，那样对你一点帮助都没有！！

试着自己一步一步的去做，做的过程中在针对你碰到的问题问，那样才能提高！

[flc]

关注

[华芸智森]

'功能:创建一个连接(连接到ACCESS)
'函数名:CreateMdbConn
'参数: DbConnection ADODB连接,MdbPath ACCESS数据库路径,Provider JET引擎版本,UserID 登录用户名,UserWord 登录密码
'返回值:TRUE 连接成功.FALSE 连接失败.
'例: CreateMdbConn p_cnn,"C:\DEMO.MDB","sa","123"

Public Function CreateMdbConn(ByRef DbConnection As ADODB.Connection, _
MdbPath As String, _
Optional Provider = "Microsoft.Jet.OLEDB.4.0;", _
Optional UserID As String = "admin", _
Optional UserWord As String = "") As Boolean
Dim ConStr As String

On Error Resume Next

If DbConnection.State = adStateOpen And Not IsEmpty(adStateOpen) Then
DbConnection.Close
End If
'/------------------------------------------------------------------
ConStr = "Provider=" & Provider & _
"Data Source=" & MdbPath & ";" & _
"Jet OLEDB:Database Password=" & UserWord & ";" & _
"User ID=" & UserID & ";"

DbConnection.ConnectionString = ConStr
DbConnection.Open
DoEvents

If Err.Number = 0 Then
DbStyle = "JET"
CreateMdbConn = True
Else
Err.Clear
DbStyle = ""
CreateMdbConn = False
End If
End Function


'功能:打开一个记录集
'函数名:RsOpen
'参数: DbCnn ADODB连接,StrSql SQL查询语句,SetNothing 非连接方式(TRUE默认).连接方式(FALSE)
'返回值:记录集
'例: RsOpen P_CNN,"SELECT ACHGOODS.* FROM ACHGOODS WHERE GDSID='001'

Function RsOpen(ByRef DbCnn As ADODB.Connection, _
StrSql As String, _
Optional SetConnect As Boolean = True) As ADODB.Recordset

Dim Rs As New ADODB.Recordset

On Error Resume Next

If SetConnect Then
Rs.CursorLocation = adUseClient
Rs.LockType = adLockBatchOptimistic
Rs.CursorType = adOpenKeyset
Else
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
End If

Rs.Open StrSql, DbCnn
If SetConnect Then Set Rs.ActiveConnection = Nothing

If Err.Number = 0 Then
Set RsOpen = Rs.Clone
Else
Set RsOpen = Nothing
End If

Rs.Close
Set Rs = Nothing
End Function