数据库连接中的另一个问题

Question

Private Sub Form_Load()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB"
  rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic
  Set MSHFlexGrid1.DataSource = rs
  MSHFlexGrid1.ColWidth(0) = 100
End Sub

Answer 1

Private Sub Form_Load()
  Dim cn As New ADODB.Connection    ‘新建connection对象
  Dim rs As New ADODB.Recordset      ’新建recordset对象
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB"     '连接数据库
  rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic  ‘tb_kc 应该是个sql语句
  Set MSHFlexGrid1.DataSource = rs  ’绑定该sql语句的结果
  MSHFlexGrid1.ColWidth(0) = 100    ‘设第一列宽为100
End Sub建议楼主找资料看的明白