1.在窗体上放一个ADODC控件和一个DataGrid或MSFlexGrid 控件
注DataGrid 可以改数据,MSFlexGrid 不能
2。设置ADODC控件的连接属性如:
adodc1.connectionstring="dsn=abc"
还有记录源可以是查询语句,如:
adodc1.commandtype=1
adodc1.recordsource="select * from abc"
设置DataGrid.datasource=adodc1
运行程序就可以了,
注DataGrid 可以改数据,MSFlexGrid 不能
2。设置ADODC控件的连接属性如:
adodc1.connectionstring="dsn=abc"
还有记录源可以是查询语句,如:
adodc1.commandtype=1
adodc1.recordsource="select * from abc"
设置DataGrid.datasource=adodc1
运行程序就可以了,
说明:1、需要一个data控件data1,控制MSFlexGrid1,MSFlexGrid1的datasoure属性设为data1;
2、需要一个adodc控件adodc1,控制DataGrid1,DataGrid1的datasoure属性可以在代码中设置'*********************************
DataGrid的例子:
Private Sub Command1_Click()
Dim strSQL As String
strSQL = "SELECT * FROM student;"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\test.mdb;Persist Security Info=False"
.RecordSource = strSQL
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub'*********************************
MSFlexGrid的例子:
Private Sub Command2_Click()
Dim strSQL As String
strSQL = "SELECT * FROM student;"
With Data1
.DatabaseName = "C:\test.mdb"
.RecordSource = strSQL
.Refresh
End With
End Sub