佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

12
返回列表 发新帖
楼主: 杨大侠

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

[复制链接]
 楼主| 发表于 24-11-2005 06:55 PM | 显示全部楼层
我学VB才不到两个月。VB没有我想象中那么容易。

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

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

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

使用道具 举报


ADVERTISEMENT

发表于 27-11-2005 07:13 PM | 显示全部楼层
原帖由 杨大侠 于 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的讯息。
回复

使用道具 举报

发表于 27-11-2005 07:27 PM | 显示全部楼层
原帖由 杨大侠 于 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。
回复

使用道具 举报

发表于 27-11-2005 07:31 PM | 显示全部楼层
其实,我觉得楼主并不是不想学,而是他真的不会。
叫他用search engine来找资料,只会得到无用的coding,因为他很多基本的keyword都不会。
最后得到的都是毫无意义的东西。这是我个人认为,不知道你们同意吗?

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

使用道具 举报

gaobeigaomu 该用户已被删除
发表于 14-12-2005 09:11 AM | 显示全部楼层
最简单的解决方法就是你把你的source and DB 上载在一个地方,让大家去下载,然后就很简单明白你的问题所在,
我介绍你一个网站可以上载的

www.zupload.com,这个网站很好用的,好好利用它吧!!
回复

使用道具 举报

发表于 23-12-2005 09:22 PM | 显示全部楼层
不知道楼主是不是解决了,但是如果你是和我一样拿tarc的windows programming,你可以看看你chapter 10的notes,我记得那便有一部分是说SQL的

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


  1. '
  2. ' Global Variables
  3. '
  4. Public gadoCon As ADODB.Connection
  5. Public gadoRS As ADODB.Recordset
  6. Public gstrSQL As String

  7. 'Type Def
  8.     Type UserData
  9.    
  10.         Name As String
  11.         ID As String
  12.         Level As Integer
  13.    
  14.     End Type
  15.    
  16.     Public gUserInfo As UserData


  17. '
  18. ' sub main
  19. ' this store the main flow of the program
  20. '
  21. Sub Main()

  22.     ' Create connection object
  23.     Set gadoCon = New ADODB.Connection
  24.     Set gadoRS = New ADODB.Recordset
  25.    
  26.     ' declaring connection instruction
  27.     gadoCon.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
  28.                                    "Persist Security Info = False;" & _
  29.                                    "Data Source = " & App.Path & "\Up2U.mdb;" & _
  30.                                    "Mode = readwrite"
  31.                                        
  32.     ' Open connection
  33.     gadoCon.Open

  34. End Sub

  35. '
  36. ' Login()
  37. ' all login data will be sent here for further processing
  38. ' return User Level
  39. '
  40. Public Sub Login(UserID As String, Password As String)

  41.     ' Checked whether the user is already logged in
  42.     If gUserInfo.Level = 0 Then
  43.         
  44.         ' perform checking here
  45.         gstrSQL = "SELECT * FROM Members WHERE USER_ID = '" & UserID & "' AND USER_PASSWORD = '" & Password & "';"
  46.         
  47.         gadoRS.Open gstrSQL, gadoCon, adOpenDynamic, adLockReadOnly
  48.         
  49.         If gadoRS.EOF = True Then
  50.         
  51.             ' unable to find
  52.         
  53.         Else
  54.         
  55.             ' able to find
  56.             gUserInfo.ID = gadoRS![USER_ID]
  57.             gUserInfo.Level = gadoRS![USER_LVL]
  58.             
  59.         End If
  60.         
  61.         gadoRS.Close
  62.         
  63.     End If

  64. End Sub


复制代码


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

使用道具 举报

Follow Us
您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 13-11-2024 03:47 PM , Processed in 0.135210 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表