VB ÓëSQL2000²éѯÎÊÌ⣬Çë½Ìǰ±²
ÎÒ½¨Á˸öÌå»ý±í£¬ÏëÒªÊäÈë¸ß¶È²é³öÌå»ý
Àý£ºl=1.234 l1=1.23 l2=4 l3=1.2
v=v1+v2+v3
µÚÒ»¸öÎÊÌ⣺
ÎÒSQLÀïÃæ½¨±íʱLµÄÊý¾ÝÀàÐÍÊÇfloat,ÕâÑù²éѯʱ³ö´í¡°l¡±ÎÞЧµÄÁÐÃû£¬ÇëÎÊÏÂÒªÔõô¸Ä¸Ä
µÚ¶þ¸öÎÊÌ⣺
ÎÒÕâÑùдRecordset³ö´íÖ»ÄÜÏÔʾµÚÒ»¸öÊý¾Ý£¬ÒªÔõôÍêÉÆÒ»ÏÂ
»¹ÓУ¬ÄÄλǰ±²ÓÐʲôºÃµÄ½¨ÒéÖ¸½Ìһϣ¬Ð¡×ÓÏÈллÁË£¡£¡
Dim p As Double, l As Double, l1 As Double, l2 As Double, l3 As Double, l0 As Double
Dim v As Double, v1 As Double, v2 As Double, vcf As Double, m As Double, G As Double
Dim str As String
l = Val(Text1.Text)
l0 = Int(l * 10) / 10
If (l - l0) >= 0.05 Then
l3 = l0 + 0.1
Else: l3 = l0
End If
l1 = Int(l * 100) / 100
l2 = Int(1000 * (l - l1))
Set myConn = New adodb.Connection
myConn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=sa;initial catalog=GRB;data source=(local)"
myConn.Open
Set rs = New adodb.Recordset
rs.Open "select v from [301-11] where l like l1 ", myConn, adOpenStatic, adLockOptimistic
v1 = rs.Fields("v").Value
'Print v1
Set rs1 = New adodb.Recordset
rs1.Open "select v from [301-12] where l like l3", myConn, adOpenStatic, adLockOptimistic
v2 = rs1.Fields("v").Value
'Print v2 <
Ïà¹ØÎÊ´ð£º
ÇëÎÊһϣ¬ÍâÍøÁ½Ì¨SQLSERVERʵÀýÊý¾Ý´«Ê䣬ÓÐûÓвÉÓÃÊý¾ÝѹËõºÍ¼ÓÃÜ¡£Ñ¹Ëõ±ÈÊǶàÉÙ£¬¼ÓÃÜÊÇʲô¼ÓÃÜËã·¨£¿Ïà¹ØÎĵµÄÄÀï¿ÉÒÔÕÒµ½£¿Ð»Ð»
ÎÒÒ²ÏëÖªµÀ£¡¹Ø×¢´ËÌù£¡
¹Ø×¢¡«¡«
Êý¾Ý¿â´óÅ£¶¼ÄÄÈ¥Á˰¡£¿
......
ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º
......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......