❶ 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