保存数据库最好使用Adodb来编程实现,而不是使用控件来更新。记得将页面显示与数据分立。
创新互联坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、网站建设、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的东区网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
参考文章:
这个文章中介绍的AdodbHelper类会帮助你简便的连接数据库,并且执行SQL语句进行数据库更新。
Dim ap As SqlClient.SqlDataAdapter'这个变量很重要
Private Function Save_Data() As Boolean '保存数据库的操作
Try
Me.DataGridView1.EndEdit()
' Me.BindingSource1 = Me.DataGridView1.DataSource
Me.BindingSource1.EndEdit()
Dim bd As New SqlClient.SqlCommandBuilder(ap)
ap.UpdateCommand = bd.GetUpdateCommand
ap.Update(Me.BindingSource1.DataSource)
Find(str_cmd)
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
都是用SQL语句完成的
写入数据库
strSQL="INTO TABLENAME (OPTION1,OPTIN2)VALUES(VALUE1,VALUE2)";
cmd.Connection = conn;
cmd.CommandText = strSQL;
cmd.Parameters.Add(paramrs[i]);
try
{
conn.Open();
}
catch(Exception ex)
{
throw ex;
}
finally
{
cmd.Parameters.Clear();
cmd.CommandText = null;
cmd.Dispose();
conn.Close();
}
读取值
strSQL ="SELECT OPTION1,OPTION2 FROM TABLENAME";
cmd.CommandText = strSQL;
cmd.Connection = conn;
DataSet ds = new DataSet();
try
{
conn.Open();
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(ds);
}
catch (Exception ex)
{
throw ex;
}
finally
{
cmd.Dispose();
conn.Close();
}
TextBox2.text = ds.Tables[0].rows[0][0].value.tostring();
VB6.0
写入:
Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件(双引号里表示文件位置和文件名)
Print #1, Text1.Text '写入Text1的Text内容
Close #1 '关闭
读取:
Open "D:\123.txt" For Input As #1 '打开打开XXX路径的XXX文件(双引号里表示文件位置和文件名)
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循环读取文件的内容,并让Text1.Text=内容
Close #1 '关闭
VB.net中读写文件主要使用System.IO命名空间。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取,注意编码格式和写入的编码保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()