上火了，上大火了，菜鸟求之100分

Question

我是初学VB的家伙，我不知道VB是怎么样同数据库做链接的有谁能帮帮我给我详细请解一下数据库的链接。还有能否告之一些WINDOWS下的常用的函数啊

Answer 1

'先引用ado对象
'这是个例子
Public Sub InitDatabase()
Dim DBS_PATH As String
Dim DBS_PASS As StringDim DataRec As Recordset  On Error GoTo ErrorHandler
  
  DBS_PATH = App.Path & "\res\Account.MDB"
  DBS_PASS = "MS Access;PWD=4D6XQ23ETY8X3"
    
  Set DBSYSTEM = Workspaces(0).OpenDatabase(DBS_PATH, False, False, DBS_PASS)
  'INSTALL_DATE = Date
  'WriteREG
  'Exit Sub
  Set DataRec = DBSYSTEM.OpenRecordset("Select * From Registration Where ID='0001'")
  If Not DataRec.EOF Then
        DataRec.MoveFirst
        If Trim(DataRec!SerialNuber) = SOFTKEY Then
           If Not IsNull(DataRec!LicenseUser) Then
              REGIST_USER = DataRec!LicenseUser      '注册用户
           End If
           If Not IsNull(DataRec!ClientUnit) Then
              REGIST_UNIT = DataRec!ClientUnit
           End If
           bREGISTE = True
        Else
           bREGISTE = False
        End If
      Else
        bREGISTE = False
        DBSYSTEM.Execute ("Delete From Registration")         '
        DBSYSTEM.Execute ("Insert Into Registration Values('0001',#" & INSTALL_DATE & "# , Null, Null, Null , Null)")
   End If
   DataRec.Close  
  
  Exit Sub
ErrorHandler:
  ErrorDealEnd Sub

Answer 2

呵呵,这里是vc
我不知道vb怎么和数据源建立连接
但我可以告你vc可以通过ODBC和数据源建立连接,希望对你有点启示.:)