Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите создать MDB-файл программным способом.... / 7 сообщений из 7, страница 1 из 1
23.08.2008, 23:01
    #35503190
AlexIsrael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
Надо создать файл myfile.mdb программным способом.
Добавить туда таблицы tblFirst и tblSecond.
Подскажите, пожалуйста.
...
Рейтинг: 0 / 0
24.08.2008, 00:11
    #35503213
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
Смотри библиотеку ADOX.
...
Рейтинг: 0 / 0
24.08.2008, 09:26
    #35503263
AlexIsrael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
Перерыл все, но там все так запутанно..:(
Может быть кто-то может написать пример кода с построчным объяснением?
Очень бы помогло.
...
Рейтинг: 0 / 0
24.08.2008, 09:42
    #35503267
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
Что-то в отом роде
Я прямо весь код выделил , думаю разберешься


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
Private Sub Command41_Click()
Dim Info1 As String
Dim nod As String, Rec As String, ret As String
Dim mas As Variant
Dim Control As String
Dim i As Long, j As Long
Dim cik As Long
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\db1.mdb;Uid=Admin;Pwd=;"""
With rs
    .ActiveConnection = con
    .LockType = adLockBatchOptimistic
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "select * from tblFirst "
End With
        MousePointer = vbHourglass
        
'**********************************************
        m.Do "Sod^glb", Trim(txtBar.Text)
        
 For i =  0  To  9999999 
        nod = m.Do("glb^glb")
        If nod <> "" Then
        ret = m.Xecute("w " & nod & "")

 
 Info = Replace(Piece(Piece(nod, "(",  2 ), ")",  1 ), ",", "\")
 Info1 = Info & "\" & ret ' Это отдельная (единичная) строка !!!!
              
             Else
         Exit For
    End If
    
'*******************************
    rs.AddNew
        For cik =  0  To UBound(Split(Info1, "\")) -  1 
            Control = RusDosWin(Piece(Info1, "\", cik +  1 ))
            If Len(Control) >  30  Then
            Control = Left$(Control,  30 )
            End If
            If Control = "" Then
            Control = " "
            End If
            rs.Fields(cik).Value = Control
        Next cik
    rs.UpdateBatch

        Next i
        
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
MousePointer = vbDefault
'****************************

End Sub

...
Рейтинг: 0 / 0
24.08.2008, 10:05
    #35503272
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
Попроще для одной строки:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Private Sub Command41_Click()
Dim Info1 As String
Dim nod As String, Rec As String, ret As String
Dim mas As Variant
Dim Control As String
Dim i As Long, j As Long
Dim cik As Long
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\myfile.mdb;Uid=Admin;Pwd=;"""
With rs
    .ActiveConnection = con
    .LockType = adLockBatchOptimistic
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "select * from tblFirst "
End With
        MousePointer = vbHourglass
    
'*******************************
    rs.AddNew
           
    Fir cik = 1  to  10 
            rs.Fields(cik).Value = "Моя Строка" & cik
            rs.UpdateBatch
       Next cik

        
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
MousePointer = vbDefault
'****************************

End Sub
...
Рейтинг: 0 / 0
25.08.2008, 09:30
    #35503870
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
AlexIsraelПерерыл все, но там все так запутанно..:(
Может быть кто-то может написать пример кода с построчным объяснением?
Очень бы помогло.

Где же ты рыл что так запутано?

Пример из Help-a (метод Greate объекта Catalog ADOX)

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub CreateDatabase()

   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

End Sub
...
Рейтинг: 0 / 0
25.08.2008, 16:15
    #35504799
AlexIsrael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите создать MDB-файл программным способом....
Спасибо большое , коротко и по теме..:)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите создать MDB-файл программным способом.... / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]