UC知道关于VB6的几个问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 16:51:40
1.怎么用VB6建立一个access数据库，添加数据后保存为文件！
2.怎么用VB6建立一个excel文件，添加数据后保存为文件！
3.怎么把需要用到的图片保存为一个文件，可以在VB程序中引用，还要可以随时往里面添加。
明细：
1.用VB建立一个窗体，输入各种信息后，用代码建立一个access数据库文件，并保存为一个“.mdb”的文件，以便以后使用。
2.同上，但整个过程不调用excel程序打开excel文件。
3.比方，在VB中调用了一个access数据库，往数据库中写数据的时候有一部分是图片数据。（以前我的做法是把图片复制到一个专门的文件夹内，然后在数据库内记录图片的路径）但现在总觉得这个方法有很多弊端，不知道有没有什么方法可以把添加的图片整合到一个文件中去，调用的时候直接从文件中读取。（以前看过可以在数据库中保存图片，但觉得那个方法太麻烦，不知道有什么简单一些的方法）
第一个 没看懂，怀疑不是VB的代码
第二个 你一定加了很多控件，和引用
而且你连控件的默认名字都改了，我不知道到底要用什么控件
不知道可不可以说清楚一些
第三个 我是想把所有的图片保存在一个文件里，以便日后取用
不是单把一张图片保存
2.怎么用VB6建立一个excel文件，添加数据后保存为文件！
3.怎么把需要用到的图片保存为一个文件，可以在VB程序中引用，还要可以随时往里面添加。
明细：
1.用VB建立一个窗体，输入各种信息后，用代码建立一个access数据库文件，并保存为一个“.mdb”的文件，以便以后使用。
2.同上，但整个过程不调用excel程序打开excel文件。
3.比方，在VB中调用了一个access数据库，往数据库中写数据的时候有一部分是图片数据。（以前我的做法是把图片复制到一个专门的文件夹内，然后在数据库内记录图片的路径）但现在总觉得这个方法有很多弊端，不知道有没有什么方法可以把添加的图片整合到一个文件中去，调用的时候直接从文件中读取。（以前看过可以在数据库中保存图片，但觉得那个方法太麻烦，不知道有什么简单一些的方法）
第一个 没看懂，怀疑不是VB的代码
第二个 你一定加了很多控件，和引用
而且你连控件的默认名字都改了，我不知道到底要用什么控件
不知道可不可以说清楚一些
第三个 我是想把所有的图片保存在一个文件里，以便日后取用
不是单把一张图片保存
1.建Access
Private Sub Command1_Click()
CreateDatabase "c:\1.mdb"
End Sub
Public Sub CreateDatabase(ByVal sDatabaseFile As String)
Dim cat
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDatabaseFile
Set cat = Nothing
End Sub
2.创建xls，首先，引用Microsoft Scripting Runtime。
Private Sub Command1_Click()
Dim w As Integer
'新建一个XLS文件
Set fileob = New FileSystemObject
'*********************
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "电子表格文件(*.xls)|*.xls"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowSave
' 显