Hirdetés
Legfrissebb anyagok
LOGOUT.hu témák
- Ingyen kellene, de tegnapra
- Asszociációs játék. :)
- Itt az új LOGOUT!
- "A homoszexualitás természetellenes" 😠
- Vissza a jövőbe film Peabody fészere baki.
- VodkaTV kiegészítő Kodira
- Rap, Hip-hop 90'
- Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- leslieke farmerzsebe
- Szólánc.
PROHARDVER! témák
Mobilarena témák
IT café témák
Aktív témák
-
lapa
veterán
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
Hirdetés
Aktív témák
Új prémium hirdetések
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest