求一个vb6.0+SQL的创建数据库实例

没有用过wb6.0 但应该可一执行SQL语句把

create database dataname

on

(

name='dataname',//库名

filename = 'E:\dataname.mdf'//库路径

)

log on

(

name='dataname_log',//日志文件名

filename = 'E:\dataname_log.ldf'//库路径

)

create table tablename

(

cardid int identity primary key, //设置自动增长列并设为主键

cardname carchar(20) not null check(len(chardname)>6),设置不能为空 并大于六个字符

……

)

1、不需要控件，但是要用到ado的库来实现，vb里面的“引用”项里面选中 Microsoft ActiveX Data Objects库即可调用ado对象了，具体调用语句网上很多。

2、这种方法实现起来不是很好，主要是access数据库是为单机应用准备的，如果要程序网络访问的话，多用户 *** 作、响应及时性以及数据库连接字符串的构造有点问题

3、如果你真想把自己的机器作为中心数据库服务器的话，建议使用sql server比较好，只需要在连接字符串里面配置好，具体使用上和查询access数据库的代码大同小异，且更方便

详细说明啊........厄，有点麻烦，我来做个例子吧

你先找个sqlserver2000给自己机器装上，用里面的"企业管理器"打开本地实例，新建个数据库，例如 AAA，在里面建立几个表，和ACCESS新建表差不多，表建立好以后，就可以用vb写代码连接访问了

新建一个工程，加入一个模块，工程-引用里面的Microsoft ActiveX Data Objects x.0库勾选下

然后在变量声明部分先

Public StrConn As String

Public StrSql As String

Public Conn As New ADODB.Connection

Public oRs As New ADODB.Recordset

声明这几个全局变量

然后

StrConn = "DRIVER=SQL ServerSERVER=127.0.0.1UID=saPWD=xxxxxxxxdatabase=AAA"

Conn.Open StrConn

这两句代码执行后，就已经建立了与数据库的连接，连接对象是 Conn，如果异地执行程序，只需要改变StrConn的值，在其中填上数据库服务器的Ip地址就可以

当需要查询数据库中数据的时候，只需要用前面生命的StrSql和oRs对象就可以了，例子如下

StrSql = "select * from AAA01" ***对Sql查询语句赋值

oRs.Open StrSql, Conn, 1, 1 ***通过前面建立的数据库连接执行查询，并将结果通过oRs这个记录集对象返回

While Not oRs.EOF ***当oRs当前记录不为空

CboUserName.AddItem Trim(oRs!Uname) ***将记录集中的Uname字段的值赋给CboUserName

oRs.MoveNext ***记录移动到下一条

Wend ***循环结束

oRs.Close

'先建立一个公共模块

Option Explicit

Public Function GetConnStr() As String

Dim ConnString As String

'连接Access

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据库名Persist Security Info=False"

GetConnStr = ConnString

End Function

Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean

'打开数据库连接，连接成功返回true，出错时返回false

Set Conn = New ADODB.Connection

'出错处理

On Error GoTo Error_box

Conn.Open GetConnStr

OpenConn = True

Exit Function

Error_box:

MsgBox "连接数据库失败！请重新连接！"

OpenConn = False

Exit Function

End Function

Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)

'执行SQL语句

Dim Conn As ADODB.Connection

'出错处理

On Error GoTo Error_box

'打开数据库连接

If OpenConn(Conn) Then

Conn.Execute SQL

msg = " *** 作执行成功！"

End If

Exit Sub

Error_box:

msg = "执行错误: " &Err.Description

Set Conn = Nothing

Exit Sub

End Sub

'*********************************************************************************************************************

'添加数据

Call ExecuteSQL("INSERT INTO 表名称(字段1,字段2,字段N) VALUES ('值1','值2','值N')", msg)

'注意:以上字段值如果为表达式并且是文本类型应采用如此格式:'" &表达式 &"',如果是数值应为" &表达式 &"

'删除数据

Call ExecuteSQL("DELETE FROM 表名称", msg)

'修改数据

Call ExecuteSQL("Update 表名称 SET 要修改的字段名='" &Trim(Text1.Text) &"' WHERE 条件='" &表达式 &"'", msg)

'如:

Call ExecuteSQL("Update G借债 SET 姓名='" &Trim(Text1(0).Text) &"' WHERE 姓名='" &Lbl_str.Caption &"'", msg)

---