vb.net数据库6 vb6 mysql

vb6和vb.net如何选择？

vb6多线程没有vb.net方便

成都创新互联-专业网站定制、快速模板网站建设、高性价比富锦网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式富锦网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖富锦地区。费用合理售后完善，十载实体公司更值得信赖。

vb6可以在win10上运行，开发的程序也可以不用担心无法运行的问题 都向下兼容的

理论和现实上 都不会让vb6开发的程序无法运行

够用，只不过是因为处理文件上没有多线程 速度上可能会慢点而已

这个因人而异，每个人的理解能力不同，编程逻辑思想比较重要，语法不同比较容易解决

vb.net 写数据库

你这是向sql后台数据库写数据吗?

sqldataadapter1.update 改须指定有效的updatecommand,我一直没有看到

给你个例子你看吧:

'首先指定有效的UpdateCommand

sqlstr = "insert into Playlist(PlayName,PlayPath)values('" TextBox4.Text.Trim "','" TextBox5.Text.Trim "')"

Module1.Mycommand.CommandText = sqlstr

'增加新一行(此行必须,要不不能与后台同步,并且后面调用update会出错)

Module1.MyDataSet.Tables("Music").Rows.Add()

Module1.MyDataAdaPter.InsertCommand = Module1.Mycommand

Module1.MyDataAdaPter.Update(Module1.MyDataSet, "Music")

MsgBox("增加数据成功！！")

VB.net 数据库

改成下面这样：

Dim cmdtext As String = "Update 用户信息表 Set 密码='" txt密码new.Text "',用户='" txt用户名.Text "' Where ID=" Int(Val(UserID))

VB.NET备份SQL数据库

using System;

using System.Data;

using System.Configuration;

using System.Collections;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

using System.IO;

using System.Text;

using _5dRss.Const;

using _5dRss.lib.Data.Tool;

public partial class admin_admin_dbmanage : System.Web.UI.Page

{

protected void Page_Load(object sender, EventArgs e)

{

//生成备份文件列表

ListBackupFiles();

if (!Page.IsPostBack)

{

Showmsg.Visible = false;

//数据库路径

lilDBPath.Text = HttpContext.Current.Request.PhysicalApplicationPath + "App_Data\\" + ConfigurationSettings.AppSettings["DBFile"];

//新建一个 FileInfo 对象，并获得数据库文件的大小，然后转换单位为KB

FileInfo myFileInfo = new FileInfo(lilDBPath.Text);

lilDBSize.Text = Convert.ToString(myFileInfo.Length/1024) + " KB";

//如果两个参数都不为空，则继续执行

if (Request.QueryString["cmd"] != null Request.QueryString["source"] != null)

{

//备份数据库原文件名

string sourceFileName = Request.QueryString["source"];

//如果 cmd 参数为 DelFile

if (Request.QueryString["cmd"].Equals("DelFile"))

{

//删除备份数据库文件

File.Delete(HttpContext.Current.Request.PhysicalApplicationPath + "Backup\\" + sourceFileName);

//刷新备份文件列表

ListBackupFiles();

Showmsg.Visible = true;

Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'删除备份数据库成功!/spanimg src='images/aR.gif' style='margin-bottom:-6px;'//div";

}

//如果 cmd 参数为 Restore

if (Request.QueryString["cmd"].Equals("Restore"))

{

//用备份文件覆盖原文件

File.Copy(HttpContext.Current.Request.PhysicalApplicationPath + "Backup\\" + sourceFileName, HttpContext.Current.Request.PhysicalApplicationPath + "App_Data\\" + ConfigurationSettings.AppSettings["DBFile"], true);

//刷新备份文件列表

ListBackupFiles();

Showmsg.Visible = true;

Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'还原备份数据库成功!/spanimg src='images/aR.gif' style='margin-bottom:-6px;'//div";

}

}

}

}

protected void lnkbtnCompactDB_Click(object sender, EventArgs e)

{

//压缩修复数据库

AccessDBtool.CompactAccessDB(SysConfig.ConnectionString, HttpContext.Current.Request.PhysicalApplicationPath + "App_Data\\" + ConfigurationSettings.AppSettings["DBFile"]);

Showmsg.Visible = true;

Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'压缩修复数据库成功!/spanimg src='images/aR.gif' style='margin-bottom:-6px;'//div";

}

protected void lnkbtnBackupDB_Click(object sender, EventArgs e)

{

string sourceFileName = HttpContext.Current.Request.PhysicalApplicationPath + "App_Data\\" + ConfigurationSettings.AppSettings["DBFile"];

string destFileName = HttpContext.Current.Request.PhysicalApplicationPath + "Backup\\" + "Backup_";

destFileName += DateTime.Now.ToString("yyyyMMddHHmmss");

destFileName += ".mbk";

//将数据库文件Copy到Backup目录，如果有重名文件就覆盖原文件

File.Copy(sourceFileName, destFileName, true);

//生成备份文件列表

ListBackupFiles();

Showmsg.Visible = true;

Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'备份数据库成功!/spanimg src='images/aR.gif' style='margin-bottom:-6px;'//div";

}

/// summary

/// 生成备份文件列表

/// /summary

/// returns文件列表，文件详细信息及操作选项的HTML代码/returns

public void ListBackupFiles()

{

//如果目录不存在则创建次目录

if (!Directory.Exists(HttpContext.Current.Request.PhysicalApplicationPath + "Backup\\"))

Directory.CreateDirectory(HttpContext.Current.Request.PhysicalApplicationPath + "Backup\\");

DirectoryInfo mydir = new DirectoryInfo(HttpContext.Current.Request.PhysicalApplicationPath + "Backup\\");

StringBuilder sb = new StringBuilder();

foreach (FileInfo f in mydir.GetFiles())

{

sb.Append("a href='backup/" + f.Name + "' target='_blank'img border='0' src='images/mdb.gif' style='margin:4px 3px -3px 0px'/" + f.Name + "/a a href='?cmd=DelFilesource=" + f.Name + "' title='删除备份文件'删除/a | a href='?cmd=Restoresource=" + f.Name + "' title='删除备份文件'还原数据库/a | " + f.Length/1024 + " KB | " + f.CreationTime + "br /");

}

lilBackupFileList.Text = sb.ToString();

}

}

把下面这句换成你的数据库地址：

//数据库路径

// lilDBPath.Text = HttpContext.Current.Request.PhysicalApplicationPath + "App_Data\\" + ConfigurationSettings.AppSettings["DBFile"];

VB.net数据库查询

你把编程语言和T-SQL语言搞混了。

如果是单纯的T-SQL语言，应该是Select * from Data where ID in (1,2,3,4,5,6)，其中(1,2,3,4,5,6）就是你所说的数组的代表。

所以你要把num(i)转化为一个(1,2,3,......)这样的字符串

vb.net 怎么操作数据库

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！

另外

.NET Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：

'首先导入命名空间

Imports System.Data

Imports System.Data.OleDb

'然后在某一个事件处理程序中写：

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库.accdb;Jet OLEDB:Database Password=MyDbPassword")

Dim command As New OleDbCommand("Select * From 数据表", conn)

conn.Open() '打开数据库连接

Dim reader As OleDbDataReader = command.ExecuteReader() '执行SQL语句，返回OleDbDataReader 对象

Do While reader.Read() '读取一条数据

textbox1.Text += reader("一些数据") VbCrLf

Loop

reader.Close() '关闭OleDbDataReader

conn.Close() '关闭连接