第一个VB数据库代码段，几行，ADO的。大家指点。没有错误顺便放点分

[Nizvoo]

Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';Data Source=D:\code\ourlog\db.mdb;Persist Security Info=True"
Set DBQuery = CreateObject("ADODB.RecordSet")
DBQuery.Open "select * from content", DBConn, 1, 1
DBQuery.MoveFirst
Dim I
While Not DBQuery.EOF
For I = 0 To 5 - 1
List1.AddItem DBQuery(I), I

Next

DBQuery.MoveNext
Wend


以前用DELPHI。。。

[victorycyz]

另外有一个问题，VB中的返回值。比如下面程序

Public Function GetAllID() As Variant
Dim I
Dim DBConn As Object
Dim DBQuery As Object
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=.\db.mdb;Persist Security Info=True"
Set DBQuery = CreateObject("ADODB.RecordSet")
DBQuery.Open "select * from content", DBConn, 1, 1
GetAllID = DBQuery
DBQuery.Close
Set DBConn = Nothing
Set DBQuery = Nothing
End Function


这样返回值行不行？？？？
___________________________________________________


这倒是一个好的思路， 行不行不知道，没试过。
不过在.net中肯定不行。

[xayzmb]

Nizvoo(瓦匠泥→变哑巴) 的关于后期邦定问题：

dim strCon as string
Dim I as long
dim DBCon as ADODB.connection
dim DBQuery as ADODB.recordset
set DBCon = new ADODB.connection
set DBQuery = new ADODB.recordset

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\code\ourlog\db.mdb;Jet OLEDB:database password ='youtPassword'"
DBCon.Open strCon
DBQuery.Open "select * from table",DBCon

'下面一行是将记录集邦定到一个MSHFlexGrid1控件
SET MSHFlexGrid1.datasource = DBQuery
'下面是将取得的字段值邦定到文本框
text1.text = DBQuery("字段名")

DBQuery.close
DBCon.close
set DBQuery = nothing

'当然
'中间部分应该根据需要
'加入一些处理
'比如错误处理
'记录集判断等等.....
'熟能生巧啊
'编程其实不难
'难在你是不是有思想.....
set DBCon = nothing

[fenghanyu]

你说的有思想怎样的？我感觉在编程序时总会出现这样那样的漏洞，怎样才能提高这方面的水平？？

[Nizvoo]

我没有说清楚，我是说晚期绑定
late-binding~

就是不用那个引用就可以在运行期进行检查。

[aiyaya]

ＵＰ一下。

[cbr7619]

另外有一个问题，VB中的返回值。比如下面程序

Public Function GetAllID() As Variant
Dim I
Dim DBConn As Object
Dim DBQuery As Object
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=.\db.mdb;Persist Security Info=True"
Set DBQuery = CreateObject("ADODB.RecordSet")
DBQuery.Open "select * from content", DBConn, 1, 1
GetAllID = DBQuery
DBQuery.Close
Set DBConn = Nothing
Set DBQuery = Nothing
End Function


这样返回值行不行？？？？
+++++++++++++++++++++++++++++++++++++++++++++++++==
是可以的。

[Nizvoo]

可在下面我的对象已经被除数关闭了，请问它是引用还是值赋？

[xayzmb]

'===============================================================================
你说的有思想怎样的？我感觉在编程序时总会出现这样那样的漏洞，怎样才能提高这方面的水平？？
'===============================================================================
下面是一个提高水平的最有效的方法：






















do
学习
实践
苦脑.....
loop

[chinareny]

连接sql server时还需要指定数据库名和用户名以及密码
例如（没有使用jet引擎，只为了说明上面的东西）：
strCn="driver={sql server};server=(local);database=dbname;uid=sa;pwd="

[bigman_lfj]

Source=D:\code\ourlog\db.mdb;Persist Security Info=True"
~~~~~~~~~~~~~~~~~~~~~以后都是麻烦事情
不要将对象模板中的路径进行硬编码。不同的应用程序和不同的安装，其路径也不一样。
就像不应该对任何对象中的路径进行硬编码一样，也不应该将对象模板中的路径进行硬编码。
使用模板的开发人员也许不知道存在硬编码的路径，这可能导致项目运行失败、崩溃，或者更
糟糕的是修改不相关的文件。

[klgzb]

Public Function GetAllID() As Variant

最好改为，public function GetAllID() as object

[renchen]

如果把：
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=.\db.mdb;Persist Security Info=True"
改为
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=192.168.0.1 ;Persist Security Info=True"
是不是就能连上MS sql server 2000 了？

[Nizvoo]

谢谢大家的集思广益，我定当受益无穷。

[qhdzh]

用App指定数据库的路径

[sensibleboy2003]

very good!!!!!!!!

[zhenxizhou]

up

[fangke]

up and up

[Nizvoo]

向上前一点，意见多一点。

[lingfengtree]

菜鸟一只，看不出错误，UP一下吧

[bracao]

再多解释解释比较好吧！~