VBÁ¬½ÓÊý¾Ý¿â²éѯ³¬Ê±ÎÊÌâ
ÔÙVBÄ£¿éÖÐÎÒÊÇͨ¹ýÈçÏ·½Ê½À´Á¬½ÓÖ÷¿âºÍÀúÊ·¿âµÄ(ÀúÊ·¿âÊý¾ÝÁ¿´ó)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New ADODB.Connection
Public Mystr As String
Public Sub ConnectToServer() 'Á¬½ÓÊý¾Ý¿â
On Error GoTo Errmsg
Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" & DBName & ";Data Source=" & DBServerIP & ";User ID=" & DBLoginID & ";Password=" & DBLoginpwd & ";"
objConn.Open Connstr
ConnHISstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" & DBHISName & ";Data Source=" & DBServerIP & ";User ID=" & DBLoginID & ";Password=" & DBLoginpwd & ";"
objConnHIS.Open ConnHISstr
Exit Sub
Errmsg:
MsgBox Err.Description & "SQL Server2005Êý¾Ý¿âÁ¬½Ó³ö´í£¬ÇëÁªÏµ¹ÜÀíÔ±£¡", vbExclamation, "Warning Info"
End
End Sub
ʹÓÃADODC£¨adoReport£©ÒÔ¼°VS FlexGridÍø¸ñ¿Ø¼þ£¨DataGridResults£©µÄDataSource·½Ê½ÏÔʾÊý¾Ý£¬µ±Óöµ½select³ö´ó±íʱ£¬¾³£³öÏÖTimeout expiredÐÅÏ¢£¬ÎÒÔõÑùÑÓ³¤VB²éѯ³¬Ê±ÉèÖ㬻òÕ߯äËû½â¾ö°ì·¨£¿
VB code
Code highlighting produced by Actipro CodeHighlighter (freeware)
http:
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......