RenesansЯ и до обращения в форум пробовал эту конструкцию, и по Вашему совету еще раз попробовал - все равно окошко odbc драйвера вылезает, чего-то не хватает. Видимо без чтения документации не получится.Если после вылезания окошка сразу ткнуть "Ok" коннект произойдет? Если да, то поможет такая строка:
1.
2.
3.
4.
5.
6.
7.
8.
9.
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=Ora tables;UID=user;PWD=password'"
SQLCA.DBParm = SQLCA.DBParm + "ConnectOption='SQL_DRIVER_NOPROMPT'"
connect;
if SQLCA.SQLCode <> 0 then
messagebox("Error", "Cannot connect to database~n"+SQLCA.SQLErrText)
return
end if
В этом случае оно должно попытаться сконнектится молча.
В общем, выкачивай MDAC там много полезного есть. В том числе и описание этого самого окошка. Его появление определяется флагами: SQLDriverConnect FunctionSQL_DRIVER_PROMPT: The driver displays a dialog box, using the values from the connection string and system information (if any) as initial values. When the user exits the dialog box, the driver connects to the data source. It also constructs a connection string from the value of the DSN or DRIVER keyword in *InConnectionString and the information returned from the dialog box. It places this connection string in the *OutConnectionString buffer.
SQL_DRIVER_COMPLETE or SQL_DRIVER_COMPLETE_REQUIRED: If the connection string contains enough information, and that information is correct, the driver connects to the data source and copies *InConnectionString to *OutConnectionString. If any information is missing or incorrect, the driver takes the same actions as it does when DriverCompletion is SQL_DRIVER_PROMPT, except that if DriverCompletion is SQL_DRIVER_COMPLETE_REQUIRED, the driver disables the controls for any information not required to connect to the data source.
SQL_DRIVER_NOPROMPT: If the connection string contains enough information, the driver connects to the data source and copies *InConnectionString to *OutConnectionString. Otherwise, the driver returns SQL_ERROR for SQLDriverConnect.
