Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
Creare tabelle In Database Access
sabato 15 gennaio 2011 - 18.34
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Elenco Tags
VB.NET
|
Visual Studio 2008
|
Access (.mdb)
|
Office 2003
Feroxkk
Profilo
| Junior Member
53
messaggi | Data Invio:
sab 15 gen 2011 - 18:34
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
92
messaggi | Data Invio:
gio 20 gen 2011 - 14:59
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
Torna su
Stanze Forum
Elenco Threads
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 !