您所在位置：主题：[原创]数据库的显示信息无法显示
txh19850115
[专家分：0] 发布于 2010-09-16 11:13:00
Private Sub Command1_Click()
Dim strsql As String
Dim str1 As String
Dim adors As New Recordset
adors.ActiveConnection = ADOcn
strsql = "select * from 学生"
adors.Open strsql
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 0
MSFlexGrid1.Cols = 3
str1 = "学号" + vbTab + "姓名" + vbTab + "性别"
MSFlexGrid1.AddItem str1
Do While Not adors.EOF
strl = adors("XH") + vbTab + adors("XM") + vbTab + adors("XB")
MSFlexGrid1.AddItem str1
adors.MoveNext
Loop
End Sub
这是我编写的从数据库浏览的编码 可是没法显示数据 显示的全是姓名 学号 名别
Dim strsql As String
Dim str1 As String
Dim adors As New Recordset
adors.ActiveConnection = ADOcn
strsql = "select * from 学生"
adors.Open strsql
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 0
MSFlexGrid1.Cols = 3
str1 = "学号" + vbTab + "姓名" + vbTab + "性别"
MSFlexGrid1.AddItem str1
Do While Not adors.EOF
strl = adors("XH") + vbTab + adors("XM") + vbTab + adors("XB")
MSFlexGrid1.AddItem str1
adors.MoveNext
Loop
End Sub
这是我编写的从数据库浏览的编码 可是没法显示数据 显示的全是姓名 学号 名别
