Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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µ×²ãÎÊÌâ - MS-SQL Server / ÒÉÄÑÎÊÌâ

ÇëÎÊһϣ¬ÍâÍøÁ½Ì¨SQLSERVERʵÀýÊý¾Ý´«Ê䣬ÓÐûÓвÉÓÃÊý¾ÝѹËõºÍ¼ÓÃÜ¡£Ñ¹Ëõ±ÈÊǶàÉÙ£¬¼ÓÃÜÊÇʲô¼ÓÃÜËã·¨£¿Ïà¹ØÎĵµÄÄÀï¿ÉÒÔÕÒµ½£¿Ð»Ð»


ÎÒÒ²ÏëÖªµÀ£¡¹Ø×¢´ËÌù£¡

¹Ø×¢¡«¡«

Êý¾Ý¿â´óÅ£¶¼ÄÄÈ¥Á˰¡£¿
......

Asp+sql serverÎÊÌâ - Web ¿ª·¢ / ASP

ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ