Программы, работающие с MyODBC

Dim myconn As New ADODB.Connection
Dim myrs As New Recordset
Dim mySQL As String
Dim myrows As Long

myconn.Open "DSN=MyODBCsample"
mySQL = "SELECT * from user"
myrs.Source = mySQL
Set myrs.ActiveConnection = myconn
myrs.CursorLocation = adUseClient
myrs.Open
myrows = myrs.RecordCount

myrs.Close
myconn.Close

• Если Вы имеете проблемы с датами, попробуйте выбирать их как строки, используя функцию CONCAT(). Например:

  select CONCAT(rise_time), CONCAT(set_time) from sunrise_sunset;
  

  Значения, найденные как строки, этим способом должны быть правильно распознаны как значения времени Excel97. Цель CONCAT() в этом примере состоит в том, чтобы ввести в заблуждение ODBC, чтобы тот принял столбец за строковый. Без CONCAT() ODBC знает, что столбец имеет тип времени, а Excel этого не понимает. Обратите внимание, что это ошибка в Excel. Она происходит потому, что он автоматически преобразовывает строку во время. Это хорошо, если источником был текстовый файл, но просто глупо, когда источником является ODBC-соединение, которое сообщает точные типы для каждого столбца.

• Вставьте строки, используя клиента mysql.
• Создайте DSN-файл, используя драйвер MyODBC, например, my для db выше.
• Откройте приложение Word.
• Создайте пустой новый документ.
• На полосе инструментов Database, нажмите кнопку insert database.
• Нажмите кнопку Get Data.
• На правой стороне экрана Get Data нажмите кнопку Ms Query.
• В Ms Query создайте New Data Source, используя DSN-файл my.
• Выберите новый запрос.
• Выберите столбцы, которые Вы хотите.
• Сделайте фильтр, если Вы хотите его использовать.
• Сделайте Sort, если Вы хотите его использовать.
• Выберите Return Data в Microsoft Word.
• Нажмите кнопку Finish.
• Нажмите Insert data и выберите записи.
• Нажмите OK, и Вы увидите строки в Вашем документе Word.

fReg:= TRegistry.Create;
  fReg.OpenKey('\Software\ODBC\ODBC.INI\DocumentsFab', True);
  fReg.WriteString('Database', 'Documents');
  fReg.WriteString('Description', ' ');
  fReg.WriteString('Driver', 'C:\WINNT\System32\myodbc.dll');
  fReg.WriteString('Flag', '1');
  fReg.WriteString('Password', '');
  fReg.WriteString('Port', ' ');
  fReg.WriteString('Server', 'xmark');
  fReg.WriteString('User', 'winuser');
  fReg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', True);
  fReg.WriteString('DocumentsFab', 'MySQL');
  fReg.CloseKey;
  fReg.Free;
  Memo1.Lines.Add('DATABASE NAME=');
  Memo1.Lines.Add('USER NAME=');
  Memo1.Lines.Add('ODBC DSN=DocumentsFab');
  Memo1.Lines.Add('OPEN MODE=READ/WRITE');
  Memo1.Lines.Add('BATCH COUNT=200');
  Memo1.Lines.Add('LANGDRIVER=');
  Memo1.Lines.Add('MAX ROWS=-1');
  Memo1.Lines.Add('SCHEMA CACHE DIR=');
  Memo1.Lines.Add('SCHEMA CACHE SIZE=8');
  Memo1.Lines.Add('SCHEMA CACHE TIME=-1');
  Memo1.Lines.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
  Memo1.Lines.Add('SQLQRYMODE=');
  Memo1.Lines.Add('ENABLE SCHEMA CACHE=FALSE');
  Memo1.Lines.Add('ENABLE BCD=FALSE');
  Memo1.Lines.Add('ROWSET SIZE=20');
  Memo1.Lines.Add('BLOBS TO CACHE=64');
  Memo1.Lines.Add('BLOB SIZE=32');
  AliasEditor.Add('DocumentsFab','MySQL',Memo1.Lines);