怎么样使用ADOX在SQL中建立数据库表主键等？

Question

建库除了用ADOX还有其它的好的方法么 .

Answer 1

用SQL语句啊strsql="create database 数据库名"

Answer 2

用Ado连接，调用SQL语法create tabledim conn as new adodb.connection
dim rs as new adodb.RecordsetIf conn.State = adStateOpen Then conn.Closeconn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=VBSQL;Data Source=10.10.6.1"conn.Open , "User Name", "Password"conn.CursorLocation = adUseClientSqltext = "CREATE TABLE jobs( job_id  char(10) PRIMARY KEY , job_desc varchar(50)  NOT NULL)"Set rs = conn.Execute(sqltext, , adCmdText)
job_id即是主键。

Answer 3

创建关键字范例
如下代码演示如何创建新的外部关键字。假定已存在两个表（Customers 和 Orders）。Sub CreateKey()   Dim kyForeign As New ADOX.Key
   Dim cat As New ADOX.Catalog   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"   kyForeign.Name = "CustOrder"
   kyForeign.Type = adKeyForeign
   kyForeign.RelatedTable = "Customers"
   kyForeign.Columns.Append "CustomerId"
   kyForeign.Columns("CustomerId").RelatedColumn = "CustomerId"
   kyForeign.UpdateRule = adRICascade
   cat.Tables("Orders").Keys.Append kyForeignEnd Sub