1. vb6.0 如何過去sqlserver 的時間
cnntodata
是定義的Connection對象，先要定義一個Connection對象，並且保證對象已正常打開。
程序的全局部分肯定有Connectionstring賦值的地方，修改那裡就可以了。
2. vb6.0中，如何讀取sqlserver資料庫中image類型的數據，要將數據轉換成base64格式的字元串
採用頭文件的目的主要是為了使某些定義可以供多個不同
的C源程序使用。因為在需要用到這些定義的C源程序中，只需加上一條#include語句即可，
而不必再在此文件中將這些定義重復一遍。預編譯程序將把頭文件中的定義統統都加入到它
所產生的輸出文件中，以供編譯程序對之進行處理。
3. vb6.0怎麼連接網路上的SQLSERVER2005資料庫
10.169.56.22這個地址伺服器要開一些埠的，不開埠是無法連接的。另外，如果確保是公網IP，開了埠就可以連接，不是公網IP，一般無法連，配置還是比較麻煩的。不行就上花生殼域名代理，然後通過HTTP協議連接資料庫。
4. VB6.0 操作 SQL資料庫問題,高分就解!
'這是我一直用的連接和訪問sqlserver資料庫的代碼。
Public SQLConn As New ADODB.Connection '連接SQlServer資料庫的公共變數
'連接sqlserver的連接代碼,注意這里的Sid Spassort Scatalog Sip Sdatasource 應該根據自己電腦和資料庫情況自己設定。
Public Function SQLconnstring() As String
On Error GoTo Errms
If SUseIP Then '如果是使用IP登錄
SQLconnstring = "Provider=SQLOLEDB.1;Network Library=DBMSSOCN;Persist Security Info=True;User ID=" & SID & ";Password=" & SPassword & ";Initial Catalog=" & SCataLog & ";Data Source=" & SIp
Else '使用伺服器名登錄
SQLconnstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & SID & ";Password=" & SPassword & ";Initial Catalog=" & SCataLog & ";Data Source=" & SDataSource
End If
Exit Function
Errms:
MsgBox Err.Description & vbCrLf & "伺服器信息設置不正確，請重新設置！"
End Function
Public Sub OpenServer() '打開SqlServer資料庫
On Error Resume Next
SQLConn.ConnectionString = SQLconnstring
SQLConn.Open
End Sub
'對資料庫進行操作
Public Function SQLExecute2(ByVal sql As String) As ADODB.Recordset
On Error GoTo exectuesql_error
'Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
'Set mycon = New ADODB.Connection
'mycon.ConnectionString = connstring
'mycon.Open
Dim stokens() As String
stokens = Split(sql)
If InStr("INSERT,DELETE,UPDATE", UCase(stokens(0))) Then
SQLConn.Execute sql
' MsgBox "yes"
Else
Set rst = New ADODB.Recordset
rst.Open Trim(sql), SQLConn, adOpenKeyset, adLockPessimistic
Set SQLExecute2 = rst
'MsgBox "has open"
End If
exectuesql_exit:
Set rst = Nothing
'Set mycon = Nothing
Exit Function
exectuesql_error:
MsgBox "err" & Err.Description
Resume exectuesql_exit
End Function
5. vb6.0獲取sqlserver存儲過程的返回值
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnn_c As New ADODB.Command
Dim cnn_p As ADODB.Parameter
Cnn.ConnectionString = ConnStr'連接字元串
With Cnn
'.Provider = "MSDASQL"
.CursorLocation = adUseClient
.Open
End With
Set Cnn_c.ActiveConnection = Cnn
With Cnn_c
.CommandType = adCmdStoredProc
.CommandText = "存儲過程名"
End With
Set cnn_p = Cnn_c.CreateParameter("ReTurn", adInteger, adParamReturnValue)
Cnn_c.Parameters.Append cnn_p
『這里添加其他參數
Set Rs = Cnn_c.Execute'執行
'Cnn_c.Parameters("ReTurn")這就是返回值
Rs.close
Cnn.Close
Set cnn_p = Nothing
Set Cnn_c = Nothing
Set Rs = Nothing
Set Cnn = Nothing
6. vb6 動態查詢 sqlserver 2008 R2資料庫中的數據
看你的欄位時間，是前面最小後面最大，假設你時間最大的是出庫完成（如果不是，你自己修改下）時間范圍限定應該限定最小時間欄位和最大時間欄位都在范圍內，時間差用datediff函數，不過這玩意取整數，如果用小時為單位的話，一小時50分鍾也算一小時，所以取分鍾為單位
如下（假定最小日期是訂單錄入，最大日期是出庫完成，不是的話自己修改欄位名）
SQL = "SELECT * from 表名 where datediff( minute," & Combo1(1).Text & " , " & Combo1(2).Text & " )> " & Text1.Text & "*60 AND 訂單錄入 >= '" & _
Format(DTPicker1(0).Value, "yyyy-MM-dd") & " 0:0:1' AND 出庫完成 <= '" & Format(DTPicker1(1).Value, "yyyy-MM-dd") & " 23:59:59'"
如果不知道哪個欄位是最大日期哪個欄位是最小日期，那就只能每個欄位都加限定條件了
這是兩個欄位判斷，繼續and下去，所有欄位判斷一遍，都不超出范圍才算
Dim SQL As String
SQL = "SELECT * from 表名 where datediff( minute," & Combo1(1).Text & " , " & Combo1(2).Text & " )> " & Text1.Text & "*60 AND (訂單錄入 between '" & _
Format(DTPicker1(0).Value, "yyyy-MM-dd") & "' AND '" & Format(DTPicker1(1).Value, "yyyy-MM-dd") & "') AND (訂單審核 between '" & _
Format(DTPicker1(0).Value, "yyyy-MM-dd") & "' AND '" & Format(DTPicker1(1).Value, "yyyy-MM-dd") & "')"
7. VB6.0如何連接SQL server 2005
Public sqlcon As System.Data.SqlClient.SqlConnection
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable
sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=伺服器名; Initial Catalog=資料庫名 ; User ID=sa; Password=123"
ds = New System.Data.DataSet
dr = New System.Data.DataTable(" 表名 ")
ds.Tables.Add(dr)
sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from 表名", sqlcon)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()