Creare tabelle In Database Access

sabato 15 gennaio 2011 - 18.34
Tag Elenco Tags  VB.NET  |  Visual Studio 2008  |  Access (.mdb)  |  Office 2003

Feroxkk Profilo | Junior Member

Come posso creare una nuova tabella in un database access di nome xy.mdb in posizione c:\ABC ?
E' possibile farlo tramite oledbcommand.commandtext="xxxxxxxxxxxxxxxxxx" ?
Se no come?

ponendo: Compile no COM ma x86 (pc 64bit)


imports system.data
imports system.data.oledb
imports system.data.oledb.oledbconnection
imports system.data.oledb.oledbcommand

dim myconn as new oledb.oledbconnection
dim mycomm as new oledb.oledbcommand
myconn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ABC\xy.mdb"
mycomm.connection = myconn
mycomm.??????

Oppure??


Edit01.:
Mi è venuto in mente ora:
Preparando un datagrid presente in un form, è possibile copiarlo direttamente tramite i procedimenti precedenti scritti sopra in un database access??
Esempio imposto un sistema per preparare il datagrid con n n € N colonne , i dati d colonna a colonna differiscono per genere.
Contatore, Int, String

Poi inserisco i dati.
la tabella creata viene inserita automaticamente.
DataAdapter???, DataTable?? Creare Un recordset??


ugk111 Profilo | Junior Member

se ho capito la tua necessità prova il seguente codice su evento clik di un pulsante
il codice è stato testato e funziona su versione 2003
Private Sub Comandoxx_Click()

Dim DataBaseDestinazione As Database
Dim NuovaTAbella As TableDef
Dim prpLoop As Property

Set DataBaseDestinazione = OpenDatabase("c:\prova\creatabella.mdb")

Set NuovaTAbella = DataBaseDestinazione.CreateTableDef("Anagrafico")

With NuovaTAbella
.Fields.Append .CreateField("Cognome", dbText)
.Fields.Append .CreateField("Nome", dbText)
.Fields.Append .CreateField("Telefono", dbText)

For Each prpLoop In .Properties
On Error Resume Next
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
On Error GoTo 0
Next prpLoop

DataBaseDestinazione.TableDefs.Append NuovaTAbella

For Each prpLoop In .Properties
On Error Resume Next
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
On Error GoTo 0
Next prpLoop

End With

DataBaseDestinazione.Close

End Sub
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5