پایگاه داده در ویژوال بیسیک - شروع تا پایان

[vblink]

سلام در ویژوال بیسیک 6 ار قسمت References تیک گزینه Microsoft DAO 3.6 را بزنید
بعد از طریق کد زیر می توانید نام یک تیبل را تغییر دهید.

  Dim dbSS As Database 

  Dim strDbName As String

  strDbName = "c:\temp\test.mdb"

 

  Set dbSS = OpenDatabase(strDbName)

 

  dbSS.CreateTableDef

  dbSS.TableDefs("R2").Name = "Org_R2"

   

  dbSS.Close

  Set dbSS = Nothing