Connect к MySQL через dbExpress->ODBC

← →
Juice © (2005-10-27 10:44) [0]

Вопрос может и не по базам данных вообще. Кто-то работал с dbExpress через ODBC ? Я скачал драйвер OpenODBC for dbExpress и все ОК - демка, что с ним в комплекте нормально работает. Но из своего приложения при попытке коннекта я получаю :
Project raised exception class EDbxOdbcWarning with messsage "SQL_SUCCESS_WITH_INFO returned from ODBC function SQLGetINfo(SQL_IDENTIFIER_QUOTE_CHAR) ODBC Return Code:1: SQL_SUCCESS_WITH_INFO No ODBC diagnostic info avalable." Prosess stoped. Use Step or Run to continue.
После этой ошибки я продолжаю работать, открываю датасет, получаю данные. Я скопировал TSQLConnection из демки и кинул на свою форму, перенес и проверил все настройки проекта и директивы компилятора - все один в один сходится с той демкой. Вот куски кода коннекта:
Мой код:
try SQLConnection2.Connected := true; finally if SQLConnection2.Connected then ShowMessage("yo"); //показывается! end; SimpleDataSet1.Open;
А вот из демки:
procedure TFormOdbcExplor.pbConnectClick(Sender: TObject); var sConString, sVendorLib, sVendorDesc: String; Status: SQLResult; Len : Smallint; {begin: exception stack demo} // O: TObject; {end.} begin {begin: exception stack demo} { O := Self; if O <> nil then O := nil; ShowMessage( O.ClassName() ); //} {end.} Cursor := crSQLWait; try try TickCountInfo := GetTickCount; //SQLConnection1.Connected := not (SQLConnection1.Connected); if SQLConnection1.Connected then SQLConnection1.Connected := False else try if cbDefConOpt.Checked then SQLConnection1.Params.Clear; try SQLConnection1.Connected := True; finally // remove cached connection options cConnectionOptionsNames[coInternalCloneConnection]: sConString := dfDSN.Text; sVendorLib := GetOptionValue(sConString, cConnectionOptionsNames[coInternalCloneConnection], {HideOption=}True, {TrimResult=}True, {bOneChar=}False, {HideTemplate=}#0); if sVendorLib <> #0 then dfDSN.Text := sConString; end; except on e:Exception do begin if pos(DbxOpenOdbcInterface.rsNotSpecifiedDNSName, E.Message) > 0 then exit else raise; end; end; repeat TickCountInfo := GetTickCount - TickCountInfo; SB.Panels[0].Text := Format(cTickCountInfo, [TickCountInfo]); if SQLConnection1.Connected then begin pbConnect.Caption := "Disc&onnect"; // goto query page TabSet1.TabIndex := 1; // save last connection string to second position (after "?") sConString := Trim(dfDSN.Text); sConString := GetOptionValue(sConString, "DSN"); if (dfDSN.Text="?") or (sConString="") or (sConString="?") then begin Len := 0; Status := SQLConnection1.SQLConnection.getOption(TSQLConnectionOption(xeConnConnectionName), nil, 0, Len); if (Status <> 0) or (Len <= 0) then break; SetLength(sConString, Len); Status := SQLConnection1.SQLConnection.getOption(TSQLConnectionOption(xeConnConnectionName), PChar(sConString), Len, Len); if Len > 0 then SetLength(sConString, Len); if (Status <> 0) or (Len <= 0) then break; end else begin sConString := dfDSN.Text; end; sVendorLib := GetOptionValue(sConString, "VENDORLIB", {HideOption=}False, {TrimResult=}True, {bOneChar=}False, {HideTemplate=}#0); if sVendorLib = #0 then begin sVendorDesc := VendorLib.Text; sVendorLib := GetOptionValue(sVendorDesc, "VENDORLIB", {HideOption=}False, {TrimResult=}True, {bOneChar=}False, {HideTemplate=}#0); if (sVendorLib <> #0) and (CompareText(sVendorLib, "odbc32.dll") <> 0) then begin if Pos("=", sConString) > 1 then sConString := "VendorLib="+sVendorLib + ";" + sConString else sConString := "VendorLib="+sVendorLib + ";DSN=" + sConString end; end; if sVendorLib <> #0 then begin sVendorLib := ExtractVendorLibName(sVendorLib); sVendorDesc := ";VENDORLIB="+UpperCase(sVendorLib); for Len := 0 to VendorLib.Items.Count-1 do begin if Pos(sVendorDesc, UpperCase(VendorLib.Items[Len])) > 0 then begin sVendorDesc := #0; VendorLib.ItemIndex := Len; Break; end; end; if sVendorDesc <> #0 then begin sVendorDesc := "VendorName=?" + sVendorLib +";VendorLib="+sVendorLib; VendorLib.Items.Add(sVendorDesc); VendorLib.ItemIndex := VendorLib.Items.Count-1; end; end; Len := dfDSN.Items.IndexOf(sConString); if (Len>1)or(Len<0) then begin if Len>0 then dfDSN.Items.Delete(Len); dfDSN.Items.Insert(1, sConString); end; dfDSN.Text := sConString; end else pbConnect.Caption := "C&onnect"; until True; // break except if not SQLConnection1.Connected then SQLConnection1AfterDisconnect(SQLConnection1) else SQLConnection1AfterConnect(SQLConnection1); raise; end; finally Cursor := crDefault; end; end;
Как так, что даже под IDE в демке никаких исключений не возникает вообще ? Что может на это повлиять, кроме как сам код и набор свойств SQLConnection1 во время коннекта ? А я их сверял, даже прямо перед коннектом в runtime скидывал состояние компонента в файл а потом сверял со своим - все сходится:
object SQLConnection1: TSQLConnection ConnectionName = "OpenOdbc:Prompt" DriverName = "OpenOdbc" GetDriverFunc = "getSQLDriverODBC" LibraryName = "D:\Temp\OpenODBC_3_019_at_2004-08-13\Demos\DbExplor\dbxoodbc.dll" LoginPrompt = False Params.Strings = ( "Database=DSN=MYODBCDBMySQL") VendorLib = "myodbc3.dll" Left = 64 Top = 464 end

← →
Juice © (2005-10-27 14:17) [1]

Вопрос снят. Демка в uses подключалась к исходникам библиотеки dbxoodbc а я понятное дело ее напрямую использовал. Перекомпилировал библиотеку и все ОК.

Connect к MySQL через dbExpress->ODBC Найти похожие ветки