vb6.0 odbc oracle,VB6.0数据库访问技术与例程解析(转)

'整个程序功能是选择不同的连接方式来进行显示工作，三种方式显示效果完全相同

'下面是主程序过程

Private Sub Command1_Click()

Dim selitem As Integer

'判断连接数据库的方式

If Option1.Value = True Then

selitem = 1

Else

If Option2.Value = True Then

selitem = 2

Else

selitem = 3

End If

End If

'选取不同的数据库连接方式

Select Case selitem

Case 1:

'使用DAO的数据库连接方式

Call ShowByDAO

Case 2:

'使用ADO的数据库连接方式

Call ShowByADO

Case 3:

'使用ODBC的数据库连接方式

Call ShowByODBC

Case 4:

'使用OLEDB的数据库连接方式

Call ShowByOLEDB

End Select

End Sub

Private Sub ShowByDAO()

'使用DAO的数据库连接方式

Dim db As Database

Dim rs As Recordset

Dim sqlstr$ '存放查询语句

Set db = OpenDatabase(App.Path & "db1.mdb")

sqlstr = "select * from 成绩表"

Set rs = db.OpenRecordset(sqlstr)

'显示结果

Call GridShow(rs)

End Sub

Sub ShowByADO()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'使用数据源来连接数据库

conn.Open "dsn=data"

rs.CursorType = adOpenKeyset

rs.LockType = adLockOptimistic

rs.Open "select * from 成绩表", conn

Call GridShowOfADO(rs)

End Sub

Sub ShowByODBC()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'使用数据源来连接数据库

conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data"

rs.Open "select * from 成绩表", conn

'显示结果

Call GridShowOfADO(rs)

End Sub

Sub ShowByOLEDB()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'使用数据源来连接数据库

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "db1.mdb" + ";Persist Security Info=False"

rs.Open "select * from 成绩表", conn

'显示结果

Call GridShowOfADO(rs)

End Sub

Sub GridShow(rs As Recordset)

'对dao方式进行显示工作

MSFlexGrid1.TextMatrix(0, 0) = "姓名"

MSFlexGrid1.TextMatrix(0, 1) = "性别"

MSFlexGrid1.TextMatrix(0, 2) = "语文"

MSFlexGrid1.TextMatrix(0, 3) = "数学"

MSFlexGrid1.TextMatrix(0, 4) = "英语"

rs.MoveLast

MSFlexGrid1.Rows = rs.RecordCount + 1

MSFlexGrid1.Cols = rs.Fields.Count

Dim i%

i = 1

rs.MoveFirst

While (Not rs.EOF)

MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)

MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)

MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)

MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)

MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)

rs.MoveNext

i = i + 1

'If (rs.EOF = True) Then

' Exit For

Wend

End Sub

Sub GridShowOfADO(rs As ADODB.Recordset)

'对ado方式进行显示工作

MSFlexGrid1.TextMatrix(0, 0) = "姓名"

MSFlexGrid1.TextMatrix(0, 1) = "性别"

MSFlexGrid1.TextMatrix(0, 2) = "语文"

MSFlexGrid1.TextMatrix(0, 3) = "数学"

MSFlexGrid1.TextMatrix(0, 4) = "英语"

'注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值

rs.MoveLast

MSFlexGrid1.Rows = rs.RecordCount + 1

MSFlexGrid1.Cols = rs.Fields.Count

Dim i%

i = 1

rs.MoveFirst

While (Not rs.EOF)

MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)

MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)

MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)

MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)

MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)

rs.MoveNext

i = i + 1

Wend

End Sub

Private Sub Command2_Click()

End

End Sub