ÔõôÓÃVB×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓƵÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ°ɣ¬Ç°¼¸ÌìÓиöÀàËƵÄÎÊÌâ¡£
ÉÏ´«Äã»á°É£¬
ÄÇô½ø¶È¾Í¼òµ¥ÁË£¬
ÿ´Î´«¶àÉÙÄã×Ô¼º¶¨£¬È»ºóÕû¹»ÎļþµÄ´óС³ýһϾͿÉÒÔÁË
Êʵ±µÄʱºòˢоÍÐÐÁË
Èç¹û²»»áÉÏ´«
ÄãµÃ˵һÏÂÄãÓõÄÊÇɶ¼¼Êõ
FTP¡¢WEBSERVICE¡¢HTTP»òÕßÆäËû
ÎÒ²»Ã÷°×Â¥ÉÏËù˵µÄ¼¼ÊõÖ¸µÄɶ¡£¡£µ«ÊÇÕâÊÇÎÒÓÃÀ´Á¬½ÓÊý¾Ý¿âµÄÁ¬½Ó×Ö·û´®£º
conn.ConnectionString = "driver={SQL SERVER};connectiontimeout=0;uid=sa;pwd=;database=Êý¾Ý¿âÃû;server=·þÎñÆ÷Ãû"
´óÏÀ°ïæ·ÖÎöһϣ¬ÒªÔõô֪µÀÄ¿Ç°ÒѾ´«Á˶àÉÙ£¿
¿ÉÒÔ
ADODB.Recordset.Fields(index).AppendChunk
×Ô¼º¼Ó¼Ó¼õ¼õ³Ë³Ë³ý³ýµÄ¾ÍOKÁË
ÆäÖÐindexÊÇÄãµÄ×Ö¶Î˳ÐòºÅ£¬Ò²¿ÉÒÔʹÓÃ
ADODB.Recordset.Fields(×Ö¶ÎÃû).AppendChunk
°ï¶¥
°ï¶¥
vb²»ºÃ×öµÄ¡£¡£
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......