Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 <


Ïà¹ØÎÊ´ð£º

sqlת»»ÎÊÌ⣬¼±£¡ - ÉçÇøÖ§³Ö / ¡¶³ÌÐòÔ±¡·ÔÓÖ¾

select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'ÒÚ'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
ΪʲôÉÏÒ»¸öÓÃvarcharת»»ºó¾ÍÖ»±£ÁôÁËÒ ......

¹ØÓÚSQLSERVERµ×²ãÎÊÌâ - MS-SQL Server / ÒÉÄÑÎÊÌâ

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


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

¹Ø×¢¡«¡«

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

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

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

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ