Aktív témák

• #137 lapa veterán lapa #136

  2005-12-07 14:31:16 #137

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz lapa #136 üzenetére

  no én meg a vaktyúk:
  
  

  Sub getdate()
  
  Dim cn As ADODB.Connection
  Dim sql As String
  Dim rs As ADODB.Recordset
  
  Set cn = New ADODB.Connection
  cn.Open ''DSN=dsn;UID=juzer;PWD=pass''
  Set rs = New Recordset
  
  sql = ''SELECT mezo FROM tabla WHERE pk = 'PK'''
  
  rs.Open sql, cn
  
  If rs.EOF = False Then
      MsgBox rs(0)
  Else
      MsgBox ''nemvan ilyen pk''
  End If
  
  cn.Close
  Set cn = Nothing
  End Sub

  
  
  ja, be kell pippantani hozzá a vba tools --> references --> ms activex data objects 2.5-öt.

  
  
  [Szerkesztve]

Aktív témák