十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim ap As SqlClient.SqlDataAdapter'这个变量很重要
我们提供的服务有:网站设计制作、成都做网站、微信公众号开发、网站优化、网站认证、根河ssl等。为上1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的根河网站制作公司
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
和导出txt文件的操作是一样的。
sql语句从数据库获得数据集,然后逐条插入到csv
下面代码可以做参考,
Sub CSVdropmark()
Dim mFileName As String = Application.StartupPath + "\EmployeeMaster\ExcelData\BaanID.CSV"
Dim fs As FileStream
Dim st As StreamWriter
Dim reader As System.IO.StreamReader
Dim i As Integer
Dim str As String
reader = New System.IO.StreamReader(mFileName)
Try
fs = New FileStream(Application.StartupPath + "\EmployeeMaster\ExcelData\BaanIDAD.CSV", FileMode.Create, FileAccess.Write)
str = reader.ReadToEnd
str = str.Replace("""", "")
st = New StreamWriter(fs)
st.WriteLine(str)
st.Flush()
Catch ex As Exception
Finally
If Not reader Is Nothing Then reader.Close()
If st IsNot Nothing Then st.Close()
If fs IsNot Nothing Then fs.Close()
End Try
End Sub
"provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" CurDir(FilePath)
说明:CurDir(FilePath)表示DBF文件所在的目录,如文件路径为:F:\编程模板\ckrjz.dbf,CurDir(FilePath)返回F:\编程模板,但在查询是DBF文件要去文件名后缀,如ckrjz.dbf在sql查询时,要把".DBF"去掉.如:
select * from [ckrjz]
一行一行的insert into到另一个数据库就行了。一般不使用批量写入,字符串太长
1.使用PHP
Excel Parser Pro软件,但是这个软件为收费软件;
2.可将EXCEL表保存为CSV格式,然后通过phpmyadmin或者SQLyog导入,SQLyog导入的方法为:
·将EXCEL表另存为CSV形式;
·打开SQLyog,对要导入的表格右击,点击“导入”-“导入使用加载本地CSV数据”;
·在弹出的对话框中,点击“改变..”,把选择“填写excel友好值”,点击确定;
·在“从文件导入”中选择要导入的CSV文件路径,点击“导入”即可导入数据到表上;
DimsqlConnection1AsSqlClient.SqlConnectionDimstrConnectAsString="datasource=127.0.0.1;initialcatalog=cade;userid=sa;password=12345;"sqlConnection1=NewSystem.Data.SqlClient.SqlConnection(strConnect)'加上下面几行代码就可以了dimdaAsnewSqlDataAdapter("select*from表",sqlConnection1)'这里的链接默认就是打开的dimdtasnewdatatableda.fill(dt)DataGridView1.DataSource=dt