在vb中调用SQL中的scelect case语句

Question

如题，调用之后将sql表中的内容显示到vb的datagrid中

Answer 1

http://download.csdn.net/source/1644211

Answer 2

Option Explicit 
Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Private Sub Form_Load() 
　Set cn = New ADODB.Connection 
　cn.Open "Provider=SQLOLEDB;Data Source=YourServer;Initial 　Catalog=YourDatabase;User ID=sa;Password=;" 
　Set rs = New ADODB.Recordset 
　rs.CursorLocation = adUseClient 
　rs.Properties("Initial Fetch Size") = 2 
　rs.Properties("Background Fetch Size") = 4 
　rs.Open "select * from YourTable", cn, adOpenStatic, adLockOptimistic, 　adCmdText 　Set DataGrid1.DataSource = rs 
End Sub

Answer 3

我的意思是说将sql中的scelect case语句加到查询语句中，因为数据库中存的数无法显示小数点前的0，要用到sql中的select case

Answer 4

"数据库中存的数无法显示小数点前的0"?
设置下面的属性
DataGrid1.Columns(列号).NumberFormat="0.00"