❶ vb6.0中，如何读取sqlserver数据库中image类型的数据，要将数据转换成base64格式的字符串
采用头文件的目的主要是为了使某些定义可以供多个不同
的C源程序使用。因为在需要用到这些定义的C源程序中，只需加上一条#include语句即可，
而不必再在此文件中将这些定义重复一遍。预编译程序将把头文件中的定义统统都加入到它
所产生的输出文件中，以供编译程序对之进行处理。
❷ 为什么下了VB6.0还是打不开frm文件学校老师发到U盘的VB操作题在学校打得开在自己的电脑上就打不开了。
你的电脑有VB60程序吗？VB60需要打开的是：*.vbp工程文件，*.frm是窗体文件，如果你的电脑安装了VB60程序，应该是可以打开的。
另外你下载了VB60不是在电脑安装VB60，需要在你的电脑安装你下载的VB60程序。
❸ vb6.0 如何连接SQLSERVER2000
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=ZHONGDING;database=aa"
conn.ConnectionTimeout = 30
conn.Open
Adodc1.RecordSource = "加药机"
Adodc1.Recordset.AddNew '新加一条记录
'编辑字段值
Adodc1.Recordset("系统时间") = Trim(Now)
Adodc1.Recordset("加药时间") = Trim(Text3.Text)
Adodc1.Recordset("累计流量") = Trim(Text6.Text)
Adodc1.Recordset("标定流量") = Trim(Text5.Text)
Adodc1.Recordset("加药路数") = Trim(Text4.Text)
'提交修改，写到数据库
Adodc1.Recordset.Update
这是连接到SQL的语句..用了ADODC控件.ADODC控件要设置DSN的.在属性选项里就有...其中连接语句中.SERVER=ZHONGDING是SQL服务器名字.
database=aa"是我建的数据库名字叫aa.在aa数据库中建立一个表..."加药机"就是我所建立的表的名字.
这段程序只有
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=ZHONGDING;database=aa"
conn.ConnectionTimeout = 30
conn.Open
Adodc1.RecordSource = "加药机"
是连接.下面的都是往数据库里写的信息.
❹ vb6.0 如何过去sqlserver 的时间
cnntodata
是定义的Connection对象，先要定义一个Connection对象，并且保证对象已正常打开。
程序的全局部分肯定有Connectionstring赋值的地方，修改那里就可以了。
❺ vb连接数据库sqlserver的问题
其实不难的，既然你已经会用DATAGRID ADODC1绑定数据，下一不就好办了。
1、首先添加，判断是否重复出现(免掉)， adodc1.addnew
adodc1.rcoutset.fileds(0)="插入的数据"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
adodc1.refresh
2.删除语句：
dim st,sql as
string
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
st=adodc1.recoutset.fileds(0).value
sql="recourtsource属性里面的语句 where **='"st"'"
adodc1.delete
3.更新语句:
adodc1.rcoutset.fileds(0)="更新过的数据"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
adodc1.refresh ‘那些数据来源可以是文本框等，你要自己想了，其实不难的。
4、假如都有判断是否唯一语句（避免插入删除异常时），
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句 where 条件"
if adodc1.rcoutset.eof=false then
msgbox"出错"
exit sub
end if '这个条件插在他们的前面就可以判断了。
❻ vb6.0怎么连接网络上的SQLSERVER2005数据库
10.169.56.22这个地址服务器要开一些端口的，不开端口是无法连接的。另外，如果确保是公网IP，开了端口就可以连接，不是公网IP，一般无法连，配置还是比较麻烦的。不行就上花生壳域名代理，然后通过HTTP协议连接数据库。
❼ vb6.0连接sqlserver2000数据库问题
用adc控件是很简单的(搜 vb adc就有了)
另外要在控制面板－＞管理－＞数据源设置好驱动和服务器就好（看你用什么数据库）
❽ 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()
❾ 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
❿ 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