| Вопрос: Word, VBA, dbf, глюки с кодировкой | Добавлено: 07.06.05 16:05 |
Автор вопроса:  Serrrgio
|
|
нужно выбрать данные из dbf и поместить их в TexBox на форме.
В нете нашел примерчик nr = TB1.Text
Set ws = DBEngine.CreateWorkspace(Name:="", UserName:="", Password:="", UseType:=dbUseODBC) Set db = ws.OpenDatabase("Файлы DBASE", dbDriverNoPrompt, False) tt = "SELECT * FROM f:\temp\base.dbf WHERE NUM='" & nr & "'" Set rs = db.OpenRecordset(tt) bb = rs.RecordCount With UF6 .TextBox1.Text = rs.Fields(1).Value .TextBox2.Value = rs.Fields(2).Value End With rs.Close db.Close ws.Close UF5.Hide UF6.Show все вроде работает но вместо русских букв я вижу "a. Naaanoiiieu, oe. O. Oaa?aiei" как сделать чтоб выводилось по русски, ткните пальцем, ниче не получается. |
| Ответы | Всего ответов: 0 |
Страница: