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£¬
Çë¸ßÊÖÀ´Ö¸µãһϰÉ
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......