怎么在数据库中添加一张表，是往里面添加一张表

思路的话就是，所有表里边都加一个“当前用户的标识”字段，你每次插入数据时候都获取标识并插入这个东西。比如：table1id username message_from message_to 1 zhang 你 我2 zhang 他 我3 wang 他 你4 li 你 他上边这样的表，你当zhang登陆时候获取他的username，他发送一条信息，你就插入一次，比如他发“擦”你就需要把“擦”和他的username一起插入，数据库里边就能形成上边那个样子啦。。。（当然，我这个数据表是瞎弄的，你这么设计数据库就完蛋啦。）每次你要获取他的记录也是同理，因为你每条记录都绑定了一个user，所有你查询时候只需要把user这个字段加进去就可以啦。比如查询他相关的信息，selete * from table1 where username = 'zhang' 这样就跟别的账号没关系啦。

create table table_name(里面一堆字段自己看着办吧)

括号要英文状态下的

添加了表之后就可以添加内容了呀

insert into table_name(这里可要可不要了) values(这里对应的字段数据)

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.0Data 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) &"记录内容为：:"

Text1.Text = Text1.Text &Chr(13) &Chr(10) &" 姓名:李振"

Text1.Text = Text1.Text &Chr(13) &Chr(10) &" 年龄:22"

Text1.Text = Text1.Text &Chr(13) &Chr(10) &" 性别:男"

Text1.Text = Text1.Text &Chr(13) &Chr(10) &" 出生年月:1984-6-8"

Exit Sub

err1:

Text1.Text = Text1.Text &Chr(13) &Chr(10) &Err.Description

End Sub

---