Foxpro dos application exe obfuscation

SOURCE: i can't add data in the database using vb

Hi,
The database can be any like oracle.

Two type of connection u can make.
One of such connection is ADODB

The code is like

Dim ors As ADODB.Recordset
Dim oconn As Connection
Dim Qry as String
dim Qry1 as string
Set ors = New ADODB.Recordset
Set oconn = New ADODB.Connection
Chk_selectall.Visible = False

oconn.Open "Provider=MSDAORA.1;" & "user id = " & Username & _
";password = " & Password & ";data source = " & Conn_string _
& ";Persist Security Info=True"

Qry = "insert into table1 values (100,'we')"

oconn.execute "Qry"

If u select any data then u ve to use
Qry1 = "select * from table1"

ors.open "Qry1",oconn

do until ors.EOF

msgbox ors(0) & "," & ors(1)

ors.movenext;

loop

SOURCE: How to add a picture in a field in Visual foxpro.

The type of the field should be GENERAL.
Try this command: APPEND GENERAL <fld_name> FROM <url_file>
For example: APPEND GENERAL my_gral_fld FROM 'c:\my_file.jpg'
Good luck!

SOURCE: can you give sample source

Create a connection: lcStringCnxRemoto = "DRIVER={MySQL ODBC 3.51 Driver};" + ; "SERVER=200.1.1.1;" + ; "PORT=3333;" + ; "UID=booking;" + ; "PWD=booking;" + ; "DATABASE=booking;" + ; "OPTIONS=131329;" lcStringCnxLocal = "DRIVER={MySQL ODBC 3.51 Driver};" + ; "SERVER=localhost;" + ; "UID=root;" + ; "PWD=clave;" + ; "DATABASE=booking;" + ; "OPTIONS=131329;" SQLSETPROP(0,"DispLogin" , 3 ) lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal)
Accesing data:
SQLSETPROP(0,"DispLogin" , 3 ) lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal) IF lnHandle > 0 cmd = SQLEXEC(lnHandle,"select QuantityRooms from roomtype","cur_roomtype") IF cmd > 0 BROWSE ELSE AERROR(laErr) MESSAGEBOX("Can't connect to mySQL. Error: " + CHR(13) + laErr[2]) ENDIF USE IN cur_roomtype SQLDISCONNECT(lnHandle) ELSE AERROR(laErr) MESSAGEBOX("Can't connect to mySQL. Error: " + CHR(13) + laErr[2])
ENDIF
Creating complex sentences:
TEXT TO lcSQLcommand NOSHOW SELECT Inventory.inventoryid, Inventory.date, Inventory.roomtypeid, Inventory.sold, Roomtype.descrip, Roomtype.rooms FROM inventory Inventory INNER JOIN roomtype Roomtype ON Inventory.roomtypeid = Roomtype.roomTypeID ORDER BY Inventory.date DESC ENDTEXT cmd = SQLEXEC(lnHandle,lcSQLcommand)
Passing parameters to a query:
nValor = 12 cmd = SQLEXEC(lnHandle,"select QuantityRooms from roomtype where roomtypeid = ?nValor","cur_roomtype")
Calling a Stored Procedure:
SQLEXEC(lnHandle, "call myStoreProcedure(@param1)")
GOOD LUCK!