Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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³öÀ´ÒԺ󣬳ÌÐò»áÍ£ÔÚÄÇÀÏÖÔÚ·¢ÏÖ²»ÊÇÕâÑù

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


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õʼ×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vb´òÓ¡ÎÊÌâ

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


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


Printer.EndDoc


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

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

ÓÃVB´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²»ÄÜÌí¼Ó¼Ç¼

ÓÃADO´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²¢Ìí¼ÓÁ˶à¸ö×Ö¶ÎÃû¡£
µ«ÏÖÔÚÎÊÌâÊÇ£¬²»ÄÜÏò¿Õ±íÖÐÌí¼Ó¼Ç¼¡£
ÿ´ÎÌí¼Ó¶¼»á³öÏÖ¡°BOF »ò EOF ÖÐÓÐÒ»¸öÊÇ¡°Õ桱£¬»òÕßµ±Ç°µÄ¼Ç¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Ç¼¡±

......

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

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

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ