如何把vb写好了程序独立出来成一个小软件？

[zrwhao]

我用vb写好了的插入图片到sql2000，界面和代码都已经写好了
现在就是怎么把它弄出来？然后用它往sql2000数据库里插入图片，flash，ppt之类的，有什么要注意的吗？

我用的代码如下：


一、 数据库的设计

　　数据库可以采用微软的Access97或者SQL Server来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名 Char型（SQL Server中）文本型（Access中）；编号Char型（SQL Server中）文本型（Access中）；照片image型（SQL Server中）OLE对象（Access中），设计好后存盘。为了可以进行远程调用，我们采用ODBC的方法进行，双击打开控制面板里的ODBC数据源,点“系统DSN”选项卡，按“添加”按钮选择对应的数据源驱动程序Access的＊.mdb或者SQL Server，依照添加向导加添加数据源，下面就可以开始程序的编写了。

　　二、 程序的编写

　　运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击“工程\引用”菜单，出现引用对话框，选择Microsoft ActiveX Data Objects2.0 Library并确定。

　　添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单“工程\部件”。点“控件”选项卡，在其中选中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0两项按“确定”按钮。

　　下面是以上各个控件的一些属性：

　 　　Form1.MaxButton=False
　　Label1.Caption=姓名：
　　Label2.Caption=编号：
　　Label3.Name= ResName
　　Label3.BackColor= ＆H80000009＆
　　Label3.BorderStyle=1－Fixed Single
　　Label3.DataField=姓名
　　Label3.DataSource= AdoCtr
　　Label4.Name= ResNumb
　　Label4.BackColor= ＆H80000009＆
　　Label4.BorderStyle=1－Fixed Single
　　Label4.DataField=编号
　　Label4.DataSource= AdoCtr
　　Text1.Name= Names
　　Text2.Name= Numb
　　CommonDialog1.Name= CDlg
　　Adodc1.Name=AdoCtr
　　CommonButton1.Name=PreView
　　CommonButton1.Caption=预览
　　CommonButton2.Name=Save
　　CommonButton2.Caption=保存
　　CommonButton3.Name= Update
　　CommonButton3.Caption=更新
　　PictureBox1.Name= PicBox
　　PictureBox1.AutoSize=False
　　PictureBox1.AutoRedraw=False
　　PictureBox1.DataField=照片
　　PictureBox1.DataSource=AdpCtr


　 　　下面是程序代码：

　　′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)

　
Dim Constr As String ′ODBC路径
　　Dim FileName As String ′图片文件名
　　Const BLOCKSIZE = 4096 ′每次读写块的大小
　　Dim ADOCon As New ADODB.Connection ′ADODB Connection对象
　　Dim ADORst As New ADODB.Recordset ′ADODB Recordset 对象
　　Dim ADOFld As ADODB.Field ′ADODB Field 对象
－－－－－－－－－－－－－－－－－－－－－－－－
　　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 DiskFile 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() ′写入FLD
　　Next i
　　ReDim byteData(LeftOver) ′重新定义数据块的大小
　　Get SourceFile, , byteData() ′读到内存块中
　　Fld.AppendChunk byteData() ′写入FLD
　　Close SourceFile ′关闭源文件
　　End If
　　End Sub


　　－－－－－－－－－－－－－－－－－－－－－－


　　Private Sub Form_Load()
　　 Constr = ″DSN=image″ ′定义ODBC连接
　　 ADOCon.Open Constr ′创建一个连接
　　 ADORst.Open ″table″, ADOCon, adOpenDynamic, adLockOptimistic
　　′打开一个ADO动态集 表名为table
　　 Set AdoCtr.Recordset = ADORst ′将动态集赋给ADO控件
　　End Sub


　　 　　－－－－－－－－－－－－－－－－－－－－－－


　Private Sub Form_Unload(Cancel As Integer)
　　′记得关闭打开的数据集，释放资源
　　ADORst.Close
　　ADOCon.Close
　　Set ADORst = Nothing
　　Set ADOCon = Nothing
　End Sub


　　 　　－－－－－－－－－－－－－－－－－－－－－－

　Private Sub PreView_Click()
　　′显示打开文件的公用对话框，选择需要加入数据库的图片
　　CDlg.Filter = ″位图(＊.bmp)|＊.bmp″
　　CDlg.ShowOpen
　　FileName = CDlg.FileName
　　PicBox.Picture = LoadPicture(FileName) ′预览图片
　End Sub


　　 　　－－－－－－－－－－－－－－－－－－－－－－

　Private Sub Save_Click()
　　ADORst.AddNew ′新增纪录
　　ADORst(″姓名″).Value = Names.Text ′给动态集的第一个字段赋值
　　ADORst(″编号″).Value = Numb.Text ′给动态集的第二个字段赋值
　　Set ADOFld = ADORst(″照片″) ′给ADODB.Field对象赋值
　　Call SaveToDB(ADOFld, FileName)
　　′调用子程序，给第三个字段（image）赋值
　　ADORst.Update
　End Sub


　　 　　－－－－－－－－－－－－－－－－－－－－－－

　Private Sub Update_Click()
　　′重新打开纪录集，刷新纪录
　　ADORst.Close
　　ADOCon.Close
　　Set ADORst = Nothing
　　Set ADOCon = Nothing
　　ADOCon.Open Constr
　　ADORst.Open ″table″, ADOCon, adOpenDynamic, adLockOptimistic
　　Set AdoCtr.Recordset = ADORst
　End Sub

[netcoder]

去vb版比较好

• 打赏
• 举报

回复 赞

[zrwhao]

还有我让他编译执行，她就说 编译错误

缺少语句结束

• 打赏
• 举报

回复 赞

[kmzs]

不知是少了endif还是少了next，你写代码用点缩近好不好，这怎么看得出来呀。。。

• 打赏
• 举报

回复 赞

[zrwhao]

没有少啊，难道是过程错了？？我是把窗口设计好，然后把代码copy进去的，不行吗？

• 打赏
• 举报

回复 赞

[zrwhao]

Private Sub Form_Load()
Constr = ″DSN = image″ '定义ODBC连接
　　 ADOCon.Open Constr ′创建一个连接
ADORst.Open ″table″, ADOCon, adOpenDynamic, adLockOptimistic′打开一个ADO动态集 表名为table
　　 Set AdoCtr.Recordset = ADORst ′将动态集赋给ADO控件
End Sub
前面的缺少语句结束已经解决了，但是
这一段他说有语法问题，昏倒了，哪里语法错误？？？

• 打赏
• 举报

回复 赞