ایجاد table جدید هنگام اجرای برنامه

[mahdimirzaei]

سلام میخواستم ببینم کسی میدونه چجوری میشه یه table جدید ساخت وقتی که برنامه اجراست؟:متفکر:

[محسن واژدی]

سلام علیکم
اگر منظورتان در بانک اطلاعاتی است از پرسجوی زیر استفاده کنید:
CREATE TABLE table_name

موفق باشید

[mehran901]

از منوی project گزینه refrences رو انتخاب کنید - بعد اونجا گزینه Microsoft ActiveX Data Objects 2.0 library پيدا کنيدو تيک بزنيد - Adodc مورد نظرتون رو هم با دیتابیس set کنید - بعد :


Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim NumRec As Integer

Set conn = New ADODB.Connection
conn.ConnectionString = Adodc1.ConnectionString
conn.Open

On Error Resume Next
conn.Execute "DROP TABLE Jadid"
On Error GoTo 0

conn.Execute "CREATE TABLE Jadid(" & "One INTEGER NOT NULL," & "Two VARCHAR(40) NOT NULL," & "Three VARCHAR(40) NOT NULL)"

conn.Execute "INSERT INTO Jadid VALUES (1,'4','7')"
conn.Execute "INSERT INTO Jadid VALUES (2,'5','8')"
conn.Execute "INSERT INTO Jadid VALUES (3,'6','9')"

Set rs = conn.Execute("SELECT COUNT (*) FROM Jadid")
NumRec = rs.Fields(0)

conn.Close

MsgBox "Created ... "

[mehran901]

البته ی نمونه دیگم مدت ها پیش سر ی پروژه نوشتم کل پروژه رو پیدا نکردم ...! و فقط تونستم سورسش رو کپی کنم... کامل کار میکرد و هم فیلد و هم تیبل رو اضافه کردم
از افراد فروم http://www.dreamincode.net/ هم میتونید کمک بگیرین... از راهنمایی های اون ها استفاده شده
Option Explicit

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim tb As DAO.TableDef
Dim tbs As DAO.TableDefs

Dim f As DAO.Field
Private Sub Command3_Click()
Dim i
Dim fild As DAO.Field
Set tb = db.CreateTableDef("Class _ B", , "Class _ B")
Set tbs = db.TableDefs
Set fild = tb.CreateField("Fild 1 ", dbText, 10)
fild.DefaultValue = "Tst 1"
tb.Fields.Append fild

MsgBox tb.Fields.Count
tbs.Append tb

''Set db = OpenDatabase("C:\Users\Mehran_\Documents\Access dbs\tst1.mdb", True, False, "MS Access;pwd=1234")
''Set tb = db.CreateTableDef("Class _ B")
''tb.Fields.Append .CreateField("ID", dbText)
'tb.Fields.Append "Lname"
'tb.Fields.Append "Email"
''db.TableDefs.Append tb
End Sub


Private Sub Command1_Click()
Call db.NewPassword("123", "1234")
End Sub

Private Sub Command2_Click()
' ezafe kardane fild tst 1 tst 2 tst 3 b table class a k mojood hast

Dim ifild


Set tb = db.TableDefs("Class _ A")
For ifild = 1 To 3
Set f = tb.CreateField("Tst " & ifild, dbInteger)
tb.Fields.Append f
Next

End Sub



Private Sub Command4_Click()
Set rs = db.OpenRecordset("Class _ A")
Text1 = rs.Fields("FName").Value
Set db = OpenDatabase("C:\Users\Mehran_\Documents\Access dbs\tst1.mdb", True, False, "MS Access;pwd=1234")
Set rs = db.OpenRecordset("Class _ A")
d.DataSource = Data1

'd.DataSource =
End Sub

Private Sub Form_Load()

Set db = OpenDatabase("C:\Users\Mehran_\Documents\Access dbs\tst1.mdb", True, False, "MS Access;pwd=1234")

'Set rs = db.OpenRecordset("Class _ A")
'rs.MoveNext
'Text1 = rs.Fields("FName").Value

End Sub