VB中另存为对话框的使用
我要导入导出数据库文件，在到处的时候使用另存为对话框，具体代码是如何实现的？我直接用commondialog1.showsave之后点另存为没有响应，是不是要添加什么代码？急！
另存为什么格式的文件你需要告诉大家,写到不同类型的文件中用到的代码不一样
另存为MDB，比如，我导入数据库的代码如下：
VB code:
On Error Resume Next
CommonDialog1.Filter = "Access (*.mdb)|*.mdb|All files (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
If Err.Number = 32755 Then '对话框单击 取消 的处理
Err.Clear
Exit Sub
End If
fn = CommonDialog1.FileName
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _
"Data Source=" & CommonDialog1.FileName
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from admin" 'admin换成你库中有的表名
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
现在需要另存为的代码
commondialog1.showsave跟commondialog1.showOpen一样，它只给你返回路径和文件名，具体的打开或保存操作，都是要你自己写代码来完成的。
从commondialog1.filename 属性中得到路径和文件名。
最好是别用adodc控件,改�
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
在VB中，如何执行下面的SQL语句
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
比如：
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber=&# ......
这个程序是固定的，比如cmd.exe
打开CMD后，鼠标在CMD的标题栏可以点击右键和左键，弹出相应的菜单。
我要达到的目的是：无论是左击还是右击CMD的标题栏都不能弹出菜单。
或者能出现菜单也行，但只能出 ......
怎么点击form2上的按钮 可以结束form1上正在进行的循环
form1里面添加一个变量：
Public bEnd As Boolean
循环代码添加：
bEnd = False
Do
...
If ......
