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:
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......