在DW中连接服务器数据库，提示“发生不知名的错误”

举一个数据库连接的例子（这是一个经测试没有问题的实例）：
===========================================================
dim
conn
dim
connstr
connstr="DBQ="+servermappath("databasemdb")+";DefaultDir=;DRIVER={Microsoft
Access
Driver
(mdb)};"
set
conn=servercreateobject("ADODBCONNECTION")
connopen
connstr
Set
rs=servercreateobject("ADODBRECORDSET")
===========================================================
我试了你的这个连接字符串，没有问题！——
要有问题，问题就出在你的db1mdb文件位置写错了！——
请问：你的这个db文件夹位于何处？——
按你的写法应该与主文件在一起！

在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间
private
sub
form_load()
timer1interval
=
300
end
sub
private
sub
timer1_timer()
dim
cnn
as
new
adodbconnection
dim
cmd
as
new
adodbcommand
dim
rst
as
new
adodbrecordset
dim
sqlser_time
cnnconnectionstring
=
"driver={sql
server};"
&
_
"server=server;uid=sa;pwd=;database=master"
cnnopen
cmdactiveconnection
=
cnn
cmdcommandtext
=
"select
getdate()
as
sys_sqlser_time"
set
rst
=
cmdexecute
sqlser_time
=
rst(0)
text1text
=
sqlser_time
rstclose
cnnclose
end
sub

回答:小可丁丁
学姐
6月12日
01:03
1在使用ADO之前，必须先利用VB菜单中的“工程/引用”来引用“Microsoft
ActiveX
Data
Objects
20
Librabry”，
然后ADO对象群中的Connection、Recordset、Command、Fields等对象才会成为程序可以引用的对象。
2在窗体上布置一个ADODC控件，然后单击鼠标右键，待出现快捷菜单时，从中选取“ADODC属性”命令。
3这个时候会打开“属性页”对话框，在对话框中选取“使用连接字符串”选项，并单击“生成”按钮。
4之后出现的是“数据连接属性”(Data
Link
Properties)设置窗口，按照下面步骤执行:
〈1〉OLE
DB提供者:想要连接的SQL
Server，要选择Microsoft
OLE
DB
Provider
for
SQL
Server。
〈2〉输入Server名称:输入您安装SQL
Server计算机的名称。
〈3〉输入UserName用户名称和Password用户密码:可以存取SQL
Server的用户名称和密码。
〈4〉选取数据库:如果前面几个选项均输入正确的话，那么单击这个选项的下拉按钮，就可以列出SQL
Server的所有数据库名称，再从中选取其中你的数据库名称。如果单击这个下拉按钮之后没有看到任何数据库名称，那么即表示您前面几个步骤中输入的内容有错误。
最后点击确认。
5在成功连接到SQL
Server中您的“进销存管理”数据库后，就可以开始下一步连接数据表的 *** 作了，具体步骤如下:
〈1〉假设您要打开的表是
“MSFlexGrid”，
则将ADODC控件的属性中的CommandType设置成“AdCmdTable”。
〈2〉将ADODC控件中的RecordSource属性设置成您的表名，例如
“MSFlexGrid”。
6完成这些步骤后就可以连接到您想使用的数据表了，代码步骤如下
在引用中添加Microsoft
ActiveX
Data
Objects
2X
Library
代码如下:
Dim
CN
As
New
ADODBConnection
Dim
RS
As
New
ADODBRecordset
Dim
strServerName,
strUID,
strPWD,
strDataBase
Dim
strConnect
As
String
'定义连接字符串
strServerName
=
服务器名，或者服务器IP
strUID
=
用户名
strPWD
=
密码
strDataBase
=
数据库名
strConnect
=
"Driver={SQL
Server};Server="
&
strServerName
&
";UID="
&
strUID
&
";PWD="
&
strPWD
&
";DataBase="
&
strDataBase
'连接到数据库
CNOpen
strConnect
Set
RS
=
CNExecute("SELECT

FROM
")
该回答在6月12日
01:20由回答者修改过

Dim为Dimension的缩写，后面加上所需变量的名字。

与关键字Private（私有的）相当，另外还有一个Public（公有的）关键字，定义变量方法为Dim 变量 As 变量类型 。

定义变量可以使用显式或隐式两种方式定义：

1、显式定义：Dim 变量名 As 类型

2、隐式定义：使用类型说明符

扩展资料：

使用方法

在redim使用过程中，如果要保留数组中的数据，需要使用Preserve关键字，如果不加该关键字，会清空原来的数据。

ReDim 为数组变量重新分配存储空间。可选项修饰符 Preserve 当仅更改最后一个维度的大小时，用来保留现有数组中的数据。

例如：

有一个Byte数组A，如果我们知道这个数组上限最大只能是4，就用Dim

Dim A As Byte(4)

但如果我们不能事先确定它的大小，或者需要在运行时改变它的大小就要用动态数组

Dim A As Byte()

ReDim A(4)'这样改变大小时会清空原来的数据

ReDim Preserve A(4)'这样改变大小时会保留原来的数据

Dim
sqlConnection1
As
SqlClientSqlConnection
　Dim
strConnect
As
String=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”
sqlConnection1=New
SystemDataSqlClientSqlConnection(strConnect)
　sqlConnection1open
‘打开数据库
sqlConnection1close
‘关闭连接，释放资源
1)连接Sql
Server数据库
Dim
odbcDbConnetion1
As
MicrosoftDataOdbcConnection
　Dim
strConnect
As
Sting=”Driver={SQL
Server};Server=服务器名;Uid=sa;pwd=;Database=
数据库名;”
　odbcDbConnetion1=New
MicrosoftDataOdbcConnection(strConnect)

1、按下电源键启动计算机。当看到DELL启动画面时，按“F2”键不放。

2、直到出现BIOS窗口松开按键。

3、电脑进入bios后可以对电脑进行很多 *** 作，比如修改电脑的启动项、修改电脑的时间、检测电脑的错误等。

4、BIOS恢复出厂设置：Latitude C、CP、CS 系列，Latitude L 系列：戴尔笔记本进入BIOS后，按“Alt+F”组合键可恢复CMOS原始设置，按完此组合键之后如果听到一声清脆的“Bi”声，表示 *** 作成功。

5、Inspiron 系列笔记本（nspiron 5000（e）、Inspiron 2100、Inspiron 2500）：进入BIOS 后，按“F9”可恢复CMOS 原始设置。

6、其它Inspiron 机型：按“Alt+F”可恢复CMOS 原始设置，按完此组合键之后如果听到一声清脆的“Bi”声，表示 *** 作成功。

---