24. Juli 2008 11:46
OpenMethod := 1; // 1=adOpenKeyset; 2=adOpenDynamic; 3= adOpenStatic
LockMethod := 3; // 1=dLockreadonly; 2=adLockPessimistic; 3=adLockOptimistic; 4=adLockBatchOptimistic
CREATE(ADOConn);
connstr := 'Driver={mySQL}; SERVER=PCTKOE; PORT=3306; Database=travelcontrol; User=root; Password=geheim; Option=131072';
ADOConn.Open(connstr);
CREATE(ADOrs);
SQLstring := 'SELECT * FROM vtracking51a';
ADOrs.Open(SQLstring,ADOConn,OpenMethod,LockMethod);
ADOrs.Close;
CLEAR(ADOrs);
ADOConn.Close;
CLEAR(ADOConn);
25. Juli 2008 10:16
25. Juli 2008 12:06
odbc_recset 'Microsoft ActiveX Data Objects 2.8 Library'.Recordset
odbc_conn 'Microsoft ActiveX Data Objects 2.8 Library'.Connection
odbc_command 'Microsoft ActiveX Data Objects 2.8 Library'.Command
CREATE(odbc_conn);
CREATE(odbc_recset);
CREATE(odbc_command);
odbc_conn.Open('mySQL_lokal_homepage','user');
sql_string:='SELECT * from links';
odbc_recset:=odbc_conn.Execute(sql_string);
sql_string:='INSERT INTO links '+
'(urlname, name) VALUES '+
'('+', "Tim" , "Harms")';
odbc_conn.Execute(sql_string);
CLEAR(odbc_conn);
CLEAR(odbc_recset);
CLEAR(odbc_command);
25. Juli 2008 16:42
30. Juli 2008 16:14
connstr := 'Driver={MySQL ODBC 5.1 Driver}; SERVER=PCTKOE; PORT=3306; ' +
'Database=travelcontrol; User=root; Password=geheim; Option=3;';
6. November 2012 17:10