MS Internet Control?

[Stail]

Всем здрасте!
1.Народ поведайте пожалуста тайну, как работать с компонентом 'Microsoft Intrnet Control'. У меня в XPишнике почемуто не работает следующее:

Код: Выделить всё

Webbrowser1.Navigate="Путь к html файлу"

Может есть другие способы? Расскажите пожалуста или обьясните выше приведенное.
2.Как вызывать Access из своей проги . Пишу значит так:

Код: Выделить всё

set acc=CreateObject("Access.Application")
А, что здеся должнобыть, чтобы открылся Access и в нем создаллся новый документ?
acc.visible=True

[Demonx]

:oops: Всем здрасте!
1.Народ поведайте пожалуста тайну, как работать с компонентом 'Microsoft Intrnet Control'. У меня в XPишнике почемуто не работает следующее:

Код: Выделить всё

Webbrowser1.Navigate="Путь к html файлу"

Может есть другие способы? Расскажите пожалуста или обьясните выше приведенное.

Код: Выделить всё

WebBrowser1.Navigate "Путь к html файлу"

[Stail]

Большое спасибо, а то думал не работает!:lol:

[RayShade]

А насчет создания базы данных, то так:

Код: Выделить всё

set acc = createobject("Access.Application")
with acc
.dbengine.createdatabase "c:\mybase.mdb", dblanggeneral
.visible = true
end with

[Stail]

А насчет создания базы данных, то так:

Код: Выделить всё

set acc = createobject("Access.Application")
with acc
.dbengine.createdatabase "c:\mybase.mdb", dblanggeneral
.visible = true
end with

Почему-то не работает!

[FaKk2]

А ты, путь к базе, правильно прописал?

[Stail]

А ты, путь к базе, правильно прописал?

Мне надо, чтобы при запуске Access создавалась новая база!

Как например в Word:

Код: Выделить всё

Set x = CreateObject("Word.application")
x.documents.Add - создает новый документ.
x.Visible = True


В Access такое получится

[Георгий]

Код: Выделить всё

' Include following in Declarations section of module.
Dim appAccess As Access.Application

Sub NewAccessDatabase()
    Dim dbs As Object, tdf As Object, fld As Variant
    Dim strDB As String
    Const DB_Text As Long = 10
    Const FldLen As Integer = 40

    ' Initialize string to database path.
    strDB = "C:\My Documents\Newdb.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application.9")
    ' Open database in Microsoft Access window.
    appAccess.NewCurrentDatabase strDB
    ' Get Database object variable.
    Set dbs = appAccess.CurrentDb
    ' Create new table.
    Set tdf = dbs.CreateTableDef("Contacts")
    ' Create field in new table.
    Set fld = tdf. _
        CreateField("CompanyName", DB_Text, FldLen)
    ' Append Field and TableDef objects.
    tdf.Fields.Append fld
    dbs.TableDefs.Append tdf
    Set appAccess = Nothing
End Sub


[A.A.Z.]

Off-topic:

Код: Выделить всё

' Include following in Declarations section of module.
Dim appAccess As Access.Application

Sub NewAccessDatabase()
    Dim dbs As Object, tdf As Object, fld As Variant
    Dim strDB As String
    Const DB_Text As Long = 10
    Const FldLen As Integer = 40

    ' Initialize string to database path.
    strDB = "C:\My Documents\Newdb.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application.9")
    ' Open database in Microsoft Access window.
    appAccess.NewCurrentDatabase strDB
    ' Get Database object variable.
    Set dbs = appAccess.CurrentDb
    ' Create new table.
    Set tdf = dbs.CreateTableDef("Contacts")
    ' Create field in new table.
    Set fld = tdf. _
        CreateField("CompanyName", DB_Text, FldLen)
    ' Append Field and TableDef objects.
    tdf.Fields.Append fld
    dbs.TableDefs.Append tdf
    Set appAccess = Nothing
End Sub


А если не секрет, то откуда инфу про это брать? (Про Word, Excel, Access, PowerPoint)

[Георгий]

Я сделал так: открыл Excel, подключил Microsoft Access Objects 10.0 (или что-то в этом духе), в редакторе VBA нажал F2. В списке выбрал Access там все это есть. Справка - F1.
Предыдущий мой постинг - справка из Access

[Stail]

Код: Выделить всё

' Include following in Declarations section of module.
Dim appAccess As Access.Application

Sub NewAccessDatabase()
    Dim dbs As Object, tdf As Object, fld As Variant
    Dim strDB As String
    Const DB_Text As Long = 10
    Const FldLen As Integer = 40

    ' Initialize string to database path.
    strDB = "C:\My Documents\Newdb.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application.9")
    ' Open database in Microsoft Access window.
    appAccess.NewCurrentDatabase strDB
    ' Get Database object variable.
    Set dbs = appAccess.CurrentDb
    ' Create new table.
    Set tdf = dbs.CreateTableDef("Contacts")
    ' Create field in new table.
    Set fld = tdf. _
        CreateField("CompanyName", DB_Text, FldLen)
    ' Append Field and TableDef objects.
    tdf.Fields.Append fld
    dbs.TableDefs.Append tdf
    Set appAccess = Nothing
End Sub


Спасибо!!!! Помогло.