求创建SQL（2000）数据库的VB代码

创建SQL

Server

2000数据库

Dim

ADOcn

As

New

ADODBConnection

Dim

Sqls

As

String

'连接到master数据库，创建新数据库

ADOcnConnectionString

=

"driver={SQL

Server};server=;uid=sa;pwd=;database=master"

ADOcnOpen

'DISK

INIT

NAME='我的数据库'，是数据库名称，显示在企业管理器中的名称

'PHYSNAME='d:\我的数据库_Datamdf'，是数据库文件名

'SIZE=5120，数据库初始大小

Sqls

=

"DISK

INIT

NAME='我的数据库',PHYSNAME='d:\我的数据库_Datamdf',SIZE=5120"

'在硬盘上建立数据库文件

ADOcnExecute

Sqls

Sqls

=

"CREATE

DATABASE

我的数据库

on

我的数据库=5120"

'创建数据库

ADOcnExecute

Sqls

ADOcnClose

在广联达基础软件中，绘制完成基础梁之后，程序会自动生成一些数据，并在界面上显示梁的尺寸、位置等信息。其中，“x”通常是指特别的标识符，可能表示以下一些信息：

1 缺少数据：如果在梁的尺寸或位置信息中出现“x”，可能表示缺少某些必要的数据，例如梁的长度或者某个端点坐标。

2 数据异常：有时，程序可能会遇到错误数据或者无法计算的情况，此时“x”可能表示这些异常事项。

3 未知信息：如果某些信息无法计算或者无法识别，也可能用“x”表示未知信息。

需要注意的是，“x”只是一种符号，具体的含义会依据不同的场景和软件版本而有所差异。如果您遇到了梁的绘制问题或者其他技术问题，可以参考软件手册或者咨询广联达客服人员获得更详细的解答。

不需要向ls的那几位那么麻烦

你可以使用opendatasource来获取行集

>

1、连接数据库：

Dim

strPTR

As

String

strPTR

=

"Provider=MicrosoftJetOLEDB40;Data

Source="

&

AppPath

&

"\eden_code128mdb"

dbOpen

strPTR

2、连接数据表：

strSQL

=

"select

from

code128"

'如果有条件查询必须有查询条件

RSOpen

strSQL,

db,

3,

3

3、查询记录：

A

=

RS("电表类型代码")

B

=

RS("制造单位代码")

C

=

RS("电表表号")

4、关闭对象：

RSClose

Set

RS

=

Nothing

dbClose

5、电表表号中的最大值和最小值：

strSQL

=

"select

min(电表表号)

as

最小值

from

code128"

strSQL

=

"select

max(电表表号)

as

最大值

from

code128"

至于你怎吗应用，你自己组织吧。

Sub创建日期表()

Dimnm,sqlAsString

nm="表_"&Format(Date,"yyyymmdd")

sql="SELECTINTO"&nm&"FROM表1where1

DoCmdRunSQLsql

EndSub

mdb表示access数据库的后缀名应该是mdb，是匹配符，匹配数据库文件的文件名，比如你这里的db1．

连接数据库还有其他的连接方式，你可以实验

1、connstr= "Provider=MicrosoftJetOLEDB40;" & _

"Data Source=c:\somepath\myDbmdb;" & _

"User Id=admin;" & _

"Password="

connopen connstr

2、Connstr="Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMapPath("date/fghsdfmdb")

connopen Connstr

3、Connstr = "driver={Microsoft Access Driver (mdb)};pwd=123"

dbcopen Connstr & ";dbq=" & ServerMapPath("date/fghsdfmdb")

第一种是直接连接硬盘上的绝对地址数据库，如果你把网站挂到网上空间的话，就不行了。

第2种是连相对地址，这个方法比较好，无论是本地还是挂到网上都可以用，只要把数据库放在根目录的“date/fghsdfmdb”下即可

第3种和第2种差不多，有了密码设置。

还有一种是连数据源的方法，代码是

<%

'打开数据库返回Conn

Dim Conn '数据库连接对象

set Conn=ServerCreateObject("ADODBConnection")

ConnOpen "DSN=wodebbs"

%>

还要做的是进控制面板-》管理工具-》数据源-》系统DSN

然后添加Microsoft Access Driver(mdb),然后点选择找到你的数据库，数据源名字就是起上面代码里的wodebbs,当然你可以换个名字

水平有限，给你一个代码。不过好像有些复杂，但是能够在已有的数据库中动态创建表。数据库是Access的。

Dim cat As New ADOXCatalog '动态创建盘点表用

Dim pstr As String

Dim tb As New Table

pstr = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\Datamdb" '不能把这里的40改为351

catActiveConnection = pstr

tbName = "店库存盘点明细" '表的名称

tbColumnsAppend "产品编号", adVarWChar, 50 '以下是表的字段

tbColumnsAppend "类别", adVarWChar, 50

tbColumnsAppend "年份", adVarWChar, 50

tbColumnsAppend "季节", adVarWChar, 50

tbColumnsAppend "入库日期", adDate

tbColumnsAppend "入库件数", adInteger

tbColumnsAppend "客退件数", adInteger

tbColumnsAppend "在途件数", adInteger

tbColumnsAppend "FROM", adVarWChar, 50

tbColumnsAppend "销售/出库时间", adDate

tbColumnsAppend "销售件数", adInteger

tbColumnsAppend "调出件数", adInteger

tbColumnsAppend "次品退仓件数", adInteger

tbColumnsAppend "TO", adVarWChar, 50

tbColumnsAppend "节余数量", adInteger

tbColumnsAppend "外借", adInteger

tbColumnsAppend "维修", adInteger

tbColumnsAppend "备注", adVarWChar, 50

'==============以下设置字段允许为空==============

tbColumns("入库日期")Attributes = adColNullable

tbColumns("入库件数")Attributes = adColNullable

tbColumns("客退件数")Attributes = adColNullable

tbColumns("在途件数")Attributes = adColNullable

tbColumns("FROM")Attributes = adColNullable

tbColumns("销售/出库时间")Attributes = adColNullable

tbColumns("销售件数")Attributes = adColNullable

tbColumns("调出件数")Attributes = adColNullable

tbColumns("次品退仓件数")Attributes = adColNullable

tbColumns("TO")Attributes = adColNullable

tbColumns("节余数量")Attributes = adColNullable

tbColumns("外借")Attributes = adColNullable

tbColumns("维修")Attributes = adColNullable

tbColumns("备注")Attributes = adColNullable

catTablesAppend tb '建立数据表

MsgBox "盘点明细表创建完成！", vbInformation, "创建表"

Set tb = Nothing

Set cat = Nothing

以上就是关于求创建SQL（2000）数据库的VB代码全部的内容，包括:求创建SQL（2000）数据库的VB代码、广联达基础梁绘制完成之后显示x是什么意思、asp 数据库 *** 作 求高人指点等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！