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