CAN I RUN A QUESTION THAT I HAVE IN CREATED IN THE ACCESS FROM THE VB6 ?

• • Reply

  13 years ago

  by nikos

  nikolas

  , Greece

  Joined 14 years ago

  HOW CAN I RUN A QUESTION THAT I HAVE IN CREATED IN THE ACCESS FROM THE VB6 ?

  Report abuse
• • Reply

  13 years ago

  by sync_or_swim

  Rob Bickel

  S. Wales, United Kingdom

  Joined 15 years ago

  Nikos,
  
  I appreciate that English may not be your first language, but you will get a better response if you try and post a clear explanation of your problem including any code you have written already, a definition of your database structure etc.  If you have problems writing english there are many online translators that you can use:
  http://babelfish.altavista.digital.com/babelfish/tr
  
  The following code gives an example of accessing a database from VB6:
  
  'Note: you must add a reference to the Microsoft ActiveX 2.x Object Library 
  Dim rs As ADODB.Recordset
  Dim cn As ADODB.Connection
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  strDBPath = "myDB.mdb"
  With cn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source= " & strDBPath
      .CursorLocation = adUseClient
      .Open
  End With
  strSQL = "select * from myTable"
  With rs
          .ActiveConnection = cn
          .CursorLocation = adUseClient
          .CursorType = adOpenForwardOnly
          .LockType = adLockOptimistic
          .Open strSQL
  End With
  If ((rs.BOF <> True) And (rs.EOF <> True)) Then
       'You now have a recordset which contains the records returned by your SQL query
       'To refer to a record you can use several techniques:
       'Refer to the fields by numeric reference (0 based):
       Debug.Print rs.Fields(0)
       'Refer to them by name:
       Debug.Print rs.Fields("Field1")
       'Use a "Bang"
       Debug.Print rs!Field1
  End If
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  

  Report abuse