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

vbÓëaccessÊý¾Ý¸üеÄÎÊÌâ

Ò»¸ö³ÌÐò£¬Á½¸ö´°¿Ú£¬Ò»¸öÓÃÀ´¸ü¸Äaccess±íÊý¾Ý£¨Form1£©,ÁíÒ»¸ö´°¿ÚÓиöcombo1ÓÃÀ´ÏÔʾÊý¾Ý(Form2)¡£form2ÓÐÒ»¸ö°´Å¥(command1)ÓÃÀ´´ò¿ªform1¡£ÏÖÔÚÎÒÏÈ´ò¿ªform2£¬combo1¶ÁÈ¡³öÊý¾Ý£¬µã»÷command1´ò¿ªform1,¸ü¸ÄÊý¾Ý£¨Ìí¼Ó»òÐ޸Ļòɾ³ý£©²¢¹Ø±Õform1ºó£¬ÈÃcombo1ÖØÐ¶ÁÈ¡±íÖÐÊý¾Ý£¬·¢ÏÖ»¹ÊǸüÐÂǰµÄÊý¾Ý£¬ÕâÔõô»ØÊ°¡£¿µ±ÎÒÔٴθü¸ÄÊý¾Ýºó£¬·¢ÏÖÕâʱ¶ÁÈ¡µÄÊý¾ÝÊǵÚÒ»´Î¸ü¸ÄºóµÄÊý¾Ý¡£
form2ÖÐcommand1´úÂëÈçÏ£º
Private Sub Command1_Click()
    form1.Show
    combo1.Clear
    '****************ÐÅÏ¢Ìî³ä***************
    print1.ConnectionString = GetDatabaseConnectionString()
    print1.RecordSource = "select * from kind "
    print1.Refresh

    If print1.RecordSet.EOF = False Then
        print1.RecordSet.MoveFirst
    End If
    Do While print1.RecordSet.EOF = False
        combo1.AddItem print1.RecordSet.Fields(2).Value
          print1.RecordSet.MoveNext
    Loop 
End Sub
ÕÕÀí˵£¬Îҳɹ¦¸ü¸ÄÁ˱íÖеÄÊý¾Ýºó£¬ÔٴζÁȡӦ¸ÃÊǸüкóµÄÊý¾Ý£¬ÎªÊ²Ã´²»ÐÐÄØ£¿

print1.close
¹Ø±ÕÒ»´ÎÖØÐ´ò¿ª¿ÉÄܾͺÃÁË

print1.closeÓÐÕâ¸ö·½·¨Â𣿣¿£¿£¿

ÎÒ·¢ÏÖÎÒ·¸ÁËÒ»¸ö´íÎó:
ÎÒÒÔΪform1.show³öÀ´ÒԺ󣬳ÌÐò»áÍ£ÔÚÄÇÀÏÖÔÚ·¢ÏÖ²»ÊÇÕâÑù

Ó¦¸ÃÓУ¬×Ô¼ºÕÒÕÒ°¡


Ïà¹ØÎÊ´ð£º

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

VBÔõÑùÏÔʾµÇ½Óû§ID

VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......

VBÎļþ²Ù×÷

Private Sub Command1_Click()

    Dim m As Integer    '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
    Dim n As Integer  '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
    Dim k As Integ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ