关于vb.netquery的信息
vb.net 中如何使用SQL语句查询数据库中的数据
1、首先打开Visual Studio 2008代码窗口，添加引用。
“专业、务实、高效、创新、把客户的事当成自己的事”是我们每一个人一直以来坚持追求的企业文化。 创新互联公司是您可以信赖的网站建设服务商、专业的互联网服务提供商! 专注于网站制作、成都做网站、软件开发、设计服务业务。我们始终坚持以客户需求为导向，结合用户体验与视觉传达，提供有针对性的项目解决方案，提供专业性的建议，创新互联建站将不断地超越自我，追逐市场，引领市场！
2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。
4、如果SQL 数据库就在本机，则用以下代码连接。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。
vb.net excel导入sql如何自动获取excel的sheet名？
1.将excel上传到服务器
/// summary
/// 上传文件到指定服务器文件
/// /summary
/// param name="fileUpload".Net_FileUpload控件/param
/// param name="mag"out 返回上传是否成功/param
/// param name="fileName"out 返回上传到服务器上的文件名/param
/// returns返回布尔类型。 上传成功返回true 失败false/returns
public static bool UpLoad(FileUpload fileUpload, out string mag, out string fileName)
{
mag = null;
fileName = null;
bool flag = false;
//是否允许上载
bool fileAllow = false;
//设定允许上载的扩展文件名类型
string[] allowExtensions = { ".xls", ".xlsx" };
//检查是否有(是否包含)文件案
if (fileUpload.HasFile)
{
//取得上传文件之扩展文件名，并转换成小写字母
string fileExtension = System.IO.Path.GetExtension(fileUpload.FileName).ToLower();
//检查扩展文件名是否符合限定类型
for (int i = 0; i allowExtensions.Length; i++)
{
if (fileExtension == allowExtensions[i])
{
fileAllow = true;
}
}
//符合上传文件类型
if (fileAllow)
{
try
{
//重命名文件名
fileName = DateTime.Now.ToString("yyyyMMddhhmmss") + fileUpload.FileName;
//存储文件到文件夹
fileUpload.SaveAs(GetServerPath(fileName));
fileUpload.Dispose();
mag = "文件导入成功";
flag = true;
}
catch (Exception ex)
{
mag += ex.Message;
flag = false;
}
}
else
{
mag = "不允许上载：" + fileUpload.PostedFile.FileName + "，只能上传xls和xlsx的文件，请检查！";
flag = false;
}
}
else
{
mag = "请选择要导入的Excel文件!";
flag = false;
}
return flag;
}
调用 bool ft = ExcelImport.UpLoad(FileUpload1, out mag, out filePath);
FileUpload1为。net的上传控件
二，查询出Excel里面的所有工作薄名，根据OUT出来的存放excel的路径
/// summary
/// 获取EXCEL文件中的所有表名(模板类型)(SheetName)
/// /summary
/// param name="filepath"文件绝对路径/param
/// returnsArrayList集合/returns
public static ArrayList ExcelSheetName(string filepath)
{
ArrayList al = new ArrayList();
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
try
{
conn.Open();
DataTable sheetNames = conn.GetOleDbSchemaTable
(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
conn.Close();
foreach (DataRow dr in sheetNames.Rows)
{
al.Add(dr[2]);
}
}
catch (Exception e)
{
Logger.Error("ExcelImport.cs 页面 ExcelSheetName", e);
}
finally
{
conn.Close();
}
return al;
}
调用 //获取导入模板所有的模板表名
ArrayList al = ExcelImport.ExcelSheetName(UpPath);
3.进行工作薄名称的对比
string sheet = null;
//进行判断是否取到想要的sheet1
bool isExists = false;
for (int i = 0; i al.Count; i++)
{
//获取模板表名
sheet = al[i].ToString();
if (sheet.Equals("sheet1"))
{
//EXCELsheet名是sheet1
isExists = true;
}
}
vb.net 中如何使用SQL语句查询数据库
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小强'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一个command控件，conn是你的sqlconnection对象
conn.open()'打开数据连接
dim
myreader
as
sqldatareader'定义一个reader用来读数据
myreader
=
mycommand.executereader()'运行你的查询，结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
end
if
分享标题：关于vb.netquery的信息
分享路径：http://cdiso.cn/article/docpjsj.html
