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()