VB+sql问题（在线等待）

2002-06-13 01:51:56 43 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Vb 6.0与SQL Sever建立连接 vb+SQL做了一个登录界面，运行时报错"对象变量或With块变量未设置"，然后点调试之后发现给记录集赋值并没有成功，最后发现其实是数据库并未连接成功。 VB通过ADO连接SQL Sever数据库可以分为有源数据库连接和无源数据库连接，它们的区别是是否使用了DSN（数据源名称）来决定。 1. 无源数据库连接所谓无源数据库连接并不是说不需要数据源，如果没有数据源谈何阅读详情

怎么样将VB读出的图片存到SQL数据库中

...全文

VB6.0+SQL2000做程序时ODBC连接数据库出现的问题 1当VB代码已经完成，数据库也完成时，我们需要做的就是连接两者用ODBC数据源方法的步骤： 1.1 开始→控制面板→管理工具（win7为系统和安全页面的下方）→ODBC数据源1.2 ODBC数据源选项卡的系统DSN选项→添加→SQL Server(一般在最后位置)1.3 名称，描述随便设置，服务器就是你的SQL客户端名称了，下拉列表找不到就复制粘贴下，选择“使用用户输入登录ID和密码的SQL Server验证”，登录ID一般设置为sa（貌似阅读详情

stevenqi

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

shine 2002-06-13

打赏
举报

在vb.net里好象不行啊。
get命令用了fileget代替。
如果想把一个内容赋值给数组，不行啊。

canli15 2002-06-13

打赏
举报

请问楼上的，NumBlocks = FileLength \ BLOCKSIZE
这句的作用是什么呢。补充：
为什么在for 中不直接用filelength???

canli15 2002-06-13

打赏
举报

请问楼上的，NumBlocks = FileLength \ BLOCKSIZE
这句的作用是什么呢。

yuhaii 2002-06-13

打赏
举报

答案:
用来存储图片的字段PIC用Image类型:
包括读写两部分.
哎,舍不得呀,还是贴出来了,没有文件大小限制.

'***********************************************
Dim Conn As New ADODB.Connection
Dim FileName As String
Const BLOCKSIZE = 4096
Dim ADORst As New ADODB.Recordset 'ADODB Recordset
Dim ADOFld As ADODB.Field

Private Sub Command1_Click()

Save_Click

Dim arsfile As ADODB.Recordset
Dim aa As ADODB.Record
Dim n As Long
Dim arrBytes() As Byte

Set arsfile = New Recordset
arsfile.Open "select * from A_file where id=2", Conn, adOpenStatic, adLockOptimistic

n = arsfile.Fields("word").ActualSize
ReDim arrBytes(1 To n) As Byte
arrBytes = arsfile.Fields("PIC").GetChunk(n)

Open App.Path & "\test2.jpg" For Binary As #1
Put #1, , arrBytes
Close #1

End Sub

Private Sub Form_Load()
Set Conn = New Connection
Conn.CursorLocation = adUseClient
Conn.Provider = "MSDataShape"
Conn.Open "driver={sql server};server=10.0.0.1;uid=sa;pwd=;database=cmstest;"
ADORst.Open "A_File", Conn, adOpenDynamic, adLockOptimistic
'Set ADOFld.Recordset = ADORst '
End Sub

Private Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String)
Dim byteData() As Byte
Dim NumBlocks As Long
Dim FileLength As Long
Dim LeftOver As Long
Dim SourceFile As Long
Dim i As Long
SourceFile = FreeFile
Open App.Path & "\test.jpg" For Binary Access Read As SourceFile
FileLength = LOF(SourceFile)
If FileLength = 0 Then
Close SourceFile
MsgBox DiskFile
Else
NumBlocks = FileLength \ BLOCKSIZE
LeftOver = FileLength Mod BLOCKSIZE
Fld.Value = Null
ReDim byteData(BLOCKSIZE)
For i = 1 To NumBlocks
Get SourceFile, , byteData()
Fld.AppendChunk byteData()

Next i
ReDim byteData(LeftOver)
Get SourceFile, , byteData()
Fld.AppendChunk byteData()
Close SourceFile
End If
End Sub

Private Sub Save_Click()
ADORst.AddNew
ADORst("id").Value = 2
Set ADOFld = ADORst("PIC")
Call SaveToDB(ADOFld, FileName)

ADORst.Update
End Sub

abcmouse 2002-06-13

打赏
举报

如果你网络应用的话，最好是存储到数据中，用楼上的说法;
如果本地应用，就没有所谓了，方便的话就存储路径和文件名（绝对路径）

tnt_tnt 2002-06-13

打赏
举报

楼上的基本上是说到了点子上的！
在存储的时候确实要用到二进制的数据传输！

amao1997 2002-06-13

打赏
举报

两种解决办法：
1、将路径与文件名存入数据库
2、在数据库表中建立BLOB等二进制大文本类型域。

真正的朋友

VB+sql问题（在线等待）

相关推荐