Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Вопрос по топику Создание бд

Автор: Igor Graf 16.4.2005, 08:11

Народ, всем привет! Заглянул в топик Создание бд и увидел занятные вещи. В принципе все понятно, но возник следующий вопрос: База создается и даже открывается при помощи кодов Naghuala и Cardinala , да вот проблема как мне програмно вывести данные из таблицы в MSFlexGrid или DataGrid
пробовал я сначала data подключать , и adodc , ичерез них уже дальше работать, но что-то не получилось.
Просветите пожалуйста.

С уважением Graf

Автор: Gannibal 16.4.2005, 08:57

вот здесь почитай там в низу приблизительно в середине написано... думаю там всё понятно обясняют

http://www.vbnet.ru/articles/showarticle.aspx?id=178

Автор: Igor Graf 16.4.2005, 09:39

M.E.G.U.S слушай, классная ссылка, спасибо, буду разбираться.

С уважением Graf

Автор: Gannibal 16.4.2005, 09:46

Цитата

M.E.G.U.S слушай, классная ссылка, спасибо, буду разбираться.

да всегда рад помочь smile

Автор: Igor Graf 19.4.2005, 08:20

Привет всем!!!

В обшем методом тыка пришел я к следующему

Код



Private Sub Command2_Click()
If Text4.Text = "" Or Text5.Text = "" Then
MsgBox ("Íåîáõîäèìî âûáðàòü áä è òàáëèöó")
Else
Dim strConnect As String
Dim pwd As String
pwd = "'" & Text10.Text & "'"
strConnect = ";database=c:\" & Text4.Text & ".mdb" & ";PWD=" & pwd & ""
Set mdb = OpenDatabase("", True, False, strConnect)
Data1.DatabaseName = "c:\" & Text4.Text & ".mdb"
Data1.RecordSource = "'" & Text5.Text & "'"
Data1.Refresh
End If
End Sub

Этим кодом я открываю бд и связываю ее с элементом data. Все работает.
Вопрос в следующем как тоже самое связать с ADODC элементом, или как можно в MSFlexGrid редактировать записи ну как в DataGrid , MSFlexGrid помоему этого делать нельзя(может и ошибаюсь, но сколько ковырялся не получилось). Заранее спасибо.

С уважением Graf

Автор: Gannibal 19.4.2005, 08:53

я знаю что много ссылок даю но если есть в нете так почему бы и нет вот почитай может поможет.. надеюсь поможет чё нибудь http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/DataAccess/Default.mspx

Автор: Igor Graf 19.4.2005, 10:08

M.E.G.U.Sспасибо за участие твою ссылку смотрю, но если знаешь как мне ADODC подключить к этой проге , будь другом напиши кусок кода, еще раз спасибо .

Автор: Gannibal 19.4.2005, 15:07

если неошибаюсь то вот так сделать можно.. я проверить немогу... взял для примера просто твой код и переделал .. вот так вот приблизительно приду домой перепишу если надо будет....

Код


Private Sub Command2_Click()
If Text4.Text = "" Or Text5.Text = "" Then
MsgBox ("блабла")
Else

Dim pwd As String
pwd = "'" & Text10.Text & "'"

    With Adodc1 
        .ConnectionString = ";database=c:\" & Text4.Text & ".mdb" & ";PWD=" & pwd & ""
        .RecordSource = "'" & Text5.Text & "'"
    End With 

    Set Text1.DataSource = Adodc1 

    Text1.DataField = "Имя"

    Label1.Caption = "Имя:"
    ' аналогично для других полей 
End Sub

Автор: Igor Graf 20.4.2005, 07:59

Код


Private Sub Command2_Click()
If Text4.Text = "" Or Text5.Text = "" Then
MsgBox ("áëàáëà")
Else
Dim pwd As String
pwd = "'" & Text10.Text & "'"
    With Adodc1
        .ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data sourse=\\server\base\" & Text4.Text & ".mdb"  & ";PWD=" & pwd & ""
        .RecordSource = "'" & Text5.Text & "'"
    End With
    Set DataGrid1.DataSource = Adodc1
    End If
End Sub

Пишет, что не может найти устанавливаемый ISAM, а если через свойства подключить то говорит, что база используется другим пользователем. Не черта не могу понять что такое.

С уважением Graf

Автор: Gannibal 20.4.2005, 17:56

попробуй вместо Microsoft.Jet.OLEDB.4.0 употрябит Microsoft.Jet.OLEDB.3.51 может идёт несовпадение БД

Автор: Igor Graf 22.4.2005, 07:26

Пробовал, не идет , да я в принципе уже обошелся тем, что есть, но интересно было-бы всетаки разобраться.

С уважением Graf

Автор: Gannibal 22.4.2005, 13:42

Цитата

Bugs: Couldn't Find Installable ISAM
When you try to export/import data from Excel, dBase, Text or some other file type, you might get this error message.
A missing file or corrupt registry entry are the usual causes behind this error. Sometimes, a typical Office Setup does not install these drivers by default. Re-run the Setup program, and manually select the individual drivers under the Data Access options. If any of the driver files were missing, they should be copied and registered by the Setup program.
However, in a few cases, this does not get rid of the error message. If the driver files are already present on the hard drive, the registry entries could be corrupt.
First try registering the appropriate dll with RegSvr32 (sample steps <bugs0007.htm>. If this doesn't work, then try running the setup with some command line arguments:
Setup /y /r
If you still experience the same error message, try completely uninstalling Access. Then, search for these files on your hard drive, and rename them.
Msexcl35.dll (Excel) Mstext35.dll (Text)
Msxbse35.dll (dBase) Msxbse35.dll (FoxPro)
Now, re-install Access.

вот нашёл решения проблемы говорят что помагаета так на майкрасофте есть описание счас посмотрю..
ну вот и майкрасофт http://support.microsoft.com/kb/q90111/

Автор: Igor Graf 23.4.2005, 07:35

Спасибо большое M.E.G.U.S , буду переводить и разбираться (т.к. с английским туго)

С уважением Graf