VB link Database(MS Access) 初学--解决了！希望会VB的，进来讨论讨论。

杨大侠

我学VB才不到两个月。VB没有我想象中那么容易。

因为有很多object，很多properties要去弄明白。
Built-in function很多，可是有些很难懂。

我之前学过C和Java。
第一次与GUI接触的是用java。
Java coding很麻烦，但syntax不难，跟C很像。
VB coding简单，但我就是不会它的syntax，style。

编程，我还有很长的路要走。
希望不会半路跌下山。。。

meemee

原帖由 杨大侠 于 24-11-2005 06:55 PM 发表
我学VB才不到两个月。VB没有我想象中那么容易。

因为有很多object，很多properties要去弄明白。
Built-in function很多，可是有些很难懂。

我之前学过C和Java。
第一次与GUI接触的是用java。
Java codin ...

Java coding很麻烦，但syntax不难，跟C很像。
跟C很像，你作的应该是console application吧？有没有试过用java来作中文字的或GUI interface吧？如果有的话，没作到吐血才怪！

其实，VB并不是你想像中的那么难学。他只是易学难精吧了。
不然的话，就不会有人把它比喻成“玩具语言”。
你知道吗？我自创的第一电脑病毒(也是唯一的一个)就是用word里VBA制作出来的。当时我是在没有任何help file，朋友，参考书和search engine的帮助下完成的！

我觉得你把VB想像的这么困难，是因为你不知道那些keyword有什么作用。
你用的是VB6吧？其实，VB6已经趋向object oriented了，只要知道什么object有什么method和property就可以了。而且，VB里有一个automember的功能可以迅速的知道那个object有什么method和property。

keyword难懂？你可以用help file或MSDN来解决。
吧cursor放在那个keyword，然后按F1就可以知道那个keyword的意思了。

如果没有help file或MSDN，你也可以用object browser。在object browser里也有提供一些object的讯息。

meemee

原帖由 杨大侠 于 24-11-2005 12:35 AM 发表
问题解决了。。。
coding没有错，只是。。。

原来，link database拿data是要有条件的。

除了build connection string，set record sorce，。。。
还要在form里加一个textbox，link database里的data。
这 ...

还要在form里加一个textbox，link database里的data?
我有试过你的coding，不需要那个“无用”textbox，也没有问题啊。没放上那个多于的textbox，coding也可以跑。这一点我很不明白。

还有，像goatstudio说的，你不需要用到adodc这个activeX control，因为你没用到bound data。
只需要用DAO或ADO这两个libraries。你用adodc当然没有错，只不过比较多于。因为还需要把这个adodc hide起来。

在VB里用Database，你需要连接那个Database，然后开启你的table或recordset。
所以，你就需要有open connection或connection string来连接database。然后你的recordsource就要放database的table或SQL command。

meemee

其实，我觉得楼主并不是不想学，而是他真的不会。
叫他用search engine来找资料，只会得到无用的coding，因为他很多基本的keyword都不会。
最后得到的都是毫无意义的东西。这是我个人认为，不知道你们同意吗？

给楼主的话：
楼主有什么问题都可以尽量问，但是楼主本身也需要努力，所谓一分耕耘一分收获，像你很多VB的keyword不会，也需要把它弄熟，毕竟学好一个语言也不是一朝一夕的事。

最简单的解决方法就是你把你的source and DB 上载在一个地方，让大家去下载，然后就很简单明白你的问题所在，
我介绍你一个网站可以上载的

www.zupload.com,这个网站很好用的，好好利用它吧！！

V4ndrake

不知道楼主是不是解决了，但是如果你是和我一样拿tarc的windows programming，你可以看看你chapter 10的notes，我记得那便有一部分是说SQL的

今天刚刚帮我的group member搞Login system，这个是该module里面相关的coding

1. 
   
2. '
   
3. ' Global Variables
   
4. '
   
5. Public gadoCon As ADODB.Connection
   
6. Public gadoRS As ADODB.Recordset
   
7. Public gstrSQL As String
   
8. 
   
9. 'Type Def
   
10.     Type UserData
    
11.    
    
12.         Name As String
    
13.         ID As String
    
14.         Level As Integer
    
15.    
    
16.     End Type
    
17.    
    
18.     Public gUserInfo As UserData
    
19. 
    
20. 
    
21. '
    
22. ' sub main
    
23. ' this store the main flow of the program
    
24. '
    
25. Sub Main()
    
26. 
    
27.     ' Create connection object
    
28.     Set gadoCon = New ADODB.Connection
    
29.     Set gadoRS = New ADODB.Recordset
    
30.    
    
31.     ' declaring connection instruction
    
32.     gadoCon.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
    
33.                                    "Persist Security Info = False;" & _
    
34.                                    "Data Source = " & App.Path & "\Up2U.mdb;" & _
    
35.                                    "Mode = readwrite"
    
36.                                        
    
37.     ' Open connection
    
38.     gadoCon.Open
    
39. 
    
40. End Sub
    
41. 
    
42. '
    
43. ' Login()
    
44. ' all login data will be sent here for further processing
    
45. ' return User Level
    
46. '
    
47. Public Sub Login(UserID As String, Password As String)
    
48. 
    
49.     ' Checked whether the user is already logged in
    
50.     If gUserInfo.Level = 0 Then
    
51.         
    
52.         ' perform checking here
    
53.         gstrSQL = "SELECT * FROM Members WHERE USER_ID = '" & UserID & "' AND USER_PASSWORD = '" & Password & "';"
    
54.         
    
55.         gadoRS.Open gstrSQL, gadoCon, adOpenDynamic, adLockReadOnly
    
56.         
    
57.         If gadoRS.EOF = True Then
    
58.         
    
59.             ' unable to find
    
60.         
    
61.         Else
    
62.         
    
63.             ' able to find
    
64.             gUserInfo.ID = gadoRS![USER_ID]
    
65.             gUserInfo.Level = gadoRS![USER_LVL]
    
66.             
    
67.         End If
    
68.         
    
69.         gadoRS.Close
    
70.         
    
71.     End If
    
72. 
    
73. End Sub
    
74. 
    
75. 
    

复制代码

可惜因为整个structure的问题我需要重新整理一下
不过上面的coding基本上可以跑的，但是有些东西还未完整
希望楼主还没交asgm吧，因为按schedule来说，这个星期已经是要present了