1. vb导入数据库文件
最好不要用Resources，因为这样你的程序的EXE文件会很大，而且追加或者删除都要修改代码一般的做法是设置相对路径，用一个文件夹来放所有的图片，程序开启时检查Application.StartupPath路径下有无图片文件夹存在，不存在就错误提示访问图片的路径就是:Application.StartupPath & "\ 图片文件夹名字 \images.jpg" 如果需要保密用数据库mdb文件也行，但稍微复杂点如果一定要用Resources，需要把导入的文件设置为嵌入模式，下面是完整代码Imports System.ReflectionImports System.IOPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim res As Stream = Assembly.GetEntryAssembly.GetManifestResourceStream("WindowsApplication1.113682806_11n.jpg") 'WindowsApplication1为你实际的工程文件名 PictureBox1.Image = Image.FromStream(res) End SubEnd Class
2. vb怎么链接数据库
Function ConnectToDataBase() as Boolean ’定义一个连接数据库的函数，返回值为连接成功与否 On Error GoTo DealErr Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;" ConnectToDataBase=True MsgBox "连接数据库成功！" Exit FunctionDealErr: ConnectToDataBase=False MsgBox "连接数据库失败！" EndEndFunction
3. vb向数据库添加数据
1.在数据库程式里，一些控件（比如TEXTBOX）的值改变了，但没有看到，是因为控件没有刷新！一般都在程式块后加入 object.refresh ，即是把控件刷新显示新值。
2.VB里有些部件在你电脑里是不是没有添加啊，另外数据库的路径是不是一致啊。
希望我的回答可以帮到你！
4. vb怎么导入数据库
这里有个方法可以把填充listview的datatable导出成csv文件，速度较快
publicstaticvoidsaveasexcel(datatabledt1)
{
savefiledialogsfd=newsavefiledialog();
sfd.filter="导出文件(*.csv)|*.csv";
sfd.filterindex=0;
sfd.restoredirectory=true;
sfd.title="导出文件保存路径";
sfd.showdialog();
stringstrfilepath=sfd.filename;
stringbuilderstrvalue=newstringbuilder();
streamwritersw=newstreamwriter(newfilestream(strfilepath,filemode.createnew),encoding.default);
//输出表头
busidetailbd=newbusidetail();这里的busidetail是你执行导出操作所在的busidetail.xaml
bd.writeheader(sw);
foreach(datarowdrindt1.rows)
{
strvalue.remove(0,strvalue.length);
for(inti=0;i<=dt1.columns.count-1;i++)
{
strvalue.append(dr[i].tostring());
strvalue.append(",");
}
strvalue.remove(strvalue.length-1,1);//移出掉最后一个,字符
sw.writeline(strvalue);
}
sw.close();
system.windows.messagebox.show("导出文件成功！","成功",messageboxbutton.ok,messageboximage.information);
}
//输出表头
privatevoidwriteheader(streamwritersw)
{
stringstrheader="时间,中文名称,英文名称,地市名称";
sw.writeline(strheader);
}
5. vb读取数据库
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFTjet4.0OLEDBProvider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select查询字段from表名Where查询条件语句[排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT*FROMTabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
6. vb如何导入数据库
不用VB代码，手动导入可以用access的导入功能。 方法： 功能菜单->外部数据->Excel 然后按提示
1、选择文件
2、选择导入的Sheet名称
3、首行是否包含标题
4、选择索引
5、添加主键
6、导入到Access的表名
7、完成 如果用vba就把这个录下来 自己看一下代码就行
7. vb数据库导出excel
Fori=1ToMe.ListView1.ListItems.Count-1xl.Range("A"&i+1).Value=Me.ListView1.ListItems(i).Textxl.Range("B"&i+1).Value=Me.ListView1.ListItems(i).SubItems(1)xl.Range("C"&i+1).Value=Me.ListView1.ListItems(i).SubItems(2)xl.Range("D"&i+1).Value=Me.ListView1.ListItems(i).SubItems(3)xl.Range("E"&i+1).Value=Me.ListView1.ListItems(i).SubItems(4)xl.Range("F"&i+1).Value=Me.ListView1.ListItems(i).SubItems(5)xl.Range("G"&i+1).Value=Me.ListView1.ListItems(i).SubItems(6)xl.Range("H"&i+1).Value=FormatStr(Me.ListView1.ListItems(i).SubItems(7))Nextixl.Visible=True
- 相关评论
- 我要评论
-
