全部答案

2018-03-23 09:33:41

•   Dim cnn As New Connection
  Dim rst As New Recordset
  Private Sub cmd1_Click()
  Dim Sql As String
  Sql = "select * from db1 where 数据库列名='" & Text1。
    Text & "'"
  If rst。EOF = True Then
      Text2。Text = "已找到结果"
  Else
      Text2。Text = "没找到"
  End If
  End Sub
  Private Sub Form_Load()
  Str = "" '数据酷连接的
  '怎样获得str数据库连接路径，拖一个adboc(打开一个企业版窗体的就有)，点工程引用》》应用microsft activitieX Date Objects 2。
    6 library
  '然后点击adboc右键》》属性》》生成 》》选中microsft jet 4。0 Ole Db Provider
  '点击下一步，选择数据库名称》》找到数据库》》测试连接》》成功的话点确定
  '然后会产生像这么一段“Provider=Microsoft。
    Jet。OLEDB。4。0;Data Source=E:\数据库\数据库第四课与vb的链接\db3。mdb;Persist Security Info=False”
  '的代码复制下来写到str=""中就可以了
  Str。Open
  End Sub。
    

  全部
  

  p***

  2018-03-23 09:33:41

  53 7 评论

  分享
  提交评论