我来说说吧:在窗体上加一个DBGrid 控件 在“引用中”加入一个"Microsoft ActiveX Data Object 2.0 Library" 你的可能是2.1或更高没关系,用一个2.1吧!Dim cnTemp As New ADODB.Connection Dim rsTemp as New ADODB.RecordSet cnTemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 你的数据库名含路径 + ";Persist Security Info=False" cnTemp.Open rsTemp.Open "Select * From ["+你的表名+"]",cnTemp,adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource=rsTemp OK!大功告成!
刷新了,也就实现了动态的效果了!
Adodc1.RecordSource = "select * from 你的表名"
Adodc1.Refresh
sqldc.RecordSource = "select * from tongdata"
sqldc.Refresh
sqldg.Refresh程序报错:Form子句语法错误
实时错误'-2147217900 (80040e14)'
对象'Refresh'的方法 'IAdodc'失败
sqldc.RecordSource = "select * from tongdata"
sqldc.Refresh
sqldg.Refresh程序报错:Form子句语法错误
实时错误'-2147217900 (80040e14)'
对象'Refresh'的方法 'IAdodc'失败
Data控件
把DBGird的Datasource指向Data
Data.DatabaseName = app.path & "你的库名"
Data.RecordSource = "表名"
Data.Refresh
datagrid.datasource=adodc1.recordset ??!!我也忘了具体怎么写,反正是可以的,而且很方便。
set datagrid.datasource = 你的 adodb.recordset
set datagrid.datasource = 你的 adodb.recordset
在“引用中”加入一个"Microsoft ActiveX Data Object 2.0 Library"
你的可能是2.1或更高没关系,用一个2.1吧!Dim cnTemp As New ADODB.Connection
Dim rsTemp as New ADODB.RecordSet cnTemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 你的数据库名含路径 + ";Persist Security Info=False"
cnTemp.Open
rsTemp.Open "Select * From ["+你的表名+"]",cnTemp,adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource=rsTemp
OK!大功告成!
DragonJiang(飞龙)老兄的方法没错.
VB不是很简单的吗?我想简单就是意味着很容易学,不需要查msdn