数据库怎么添加表?

来源：百度知道 编辑：UC知道 时间：2024/06/08 15:14:04
本人是新手,最近想自己写一个管理之类的东东,要数据库添加新的表,怎么才可以实现?
Access和SQL Server都可以.最好两个都要.

create table tablename(fieldname1 varchar(10),fieldname2 decimal(12,4),fieldname3 int)

On Error GoTo err1:
Dim conn As ADODB.Connection 'conn为连接
Dim rs As New ADODB.Recordset 'rs为记录集
Dim sql As String
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\dat.mdb" & ";Jet OLEDB:Database Password=123" '打开数据源
sql = "select * from 学生信息 "
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
'rs.MoveLast
rs.AddNew '往表中添加新记录
rs.Fields(0).Value = "李振"
rs.Fields(1).Value = 22
rs.Fields(2).Value = "男"
rs.Fields(3).Value = #6/8/1984#
rs.Update
rs.Close
conn.Close
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "记录添加成功~！"
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "记录内容为：:"