Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÐÂÊÖÌáÎÊ£¬£¬Çë´ó¼Ò°ï²»°ïæ

ÎÊÌâÊÇÕâÑùµÄ£ºÎÒÔÚ´°¿ÚÌí¼ÓÁËÒ»¸öremotrdata¿Ø¼þ£¬
ÊôÐÔ£ºname£ºrdc_name
      connect:odbc;database=sample;uid=sa;pwd=
      cursordriver:1-rduseodbc
      SQL:select * form authors order by au_id
±àÒë³öÏÖÕâ¸öÎÊÌ⣺object variable or with block variable not set
³öÏÖÎÊÌâÓï¾äÊÇÔÚrdc_nameÐÐ
¿´²»´ó¶®.´úÂëÊÇÔõôдµÄ?

Private Sub Form_Load()
rdc_author.Resultset.MoveFirst
Do While rdc_author.Resultset.EOF = False
Combo1.AddItem Trim(rdc_author.Resultset("name"))
rdc_author.Resultset.MoveNext
Loop
rdc_author.Resultset.MoveFirst
Combo1.Text = Trim(rdc_author.Resultset("name"))
rdc_book.Visible = False
Call book_info
Call enableButtons

End Sub
µÚ¶þ¾ä¾Í±¨³öÎÊÌâ¿©

Ã²ËÆrdc_author.Resultset³É¹¦½¨Á¢

ÁíÍârdc_author.Resultset.MoveFirst ֮ǰҪÅжÏÊÇ·ñÓмǼ,ÓвſÉÒÔmovefirst
if not rdc_author.Resultset.eof then
    ¡­¡­
endif

µ«ÎÒ°Ñrdc_author.Resultset.MoveFirst ÕâÒ»¾ä×¢ÎöÁË£¬
±àÒëÏÂÒ»¾ä»¹ÊdzöÏÖÎÊÌâ°¡¡£¡£


rdc_author.Resultsetδ³É¹¦½¨Á¢  ÉÙ´òÁËÒ»×Ö

Ôõô½â¾öÄØ£¿£¿

rdc_author.Resultset¿´¿´Õâ¸ö¶ÔÏó´ÓÄÄÀïÀ´µÄ,Ôõô´´½¨µÄ,ºÜ¶àʱºòÊDzéѯûÓб»³É¹¦Ö´ÐÐÔì³ÉµÄ

²»ÊÇ¿ªÊ¼µÄʱºò˵ÁËÂð rdc_authorÊÇ
remotrdata¿Ø¼þµÄname£¬

Çë¸ßÊÖÀ´Ö¸µãһϰÉ


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ