Dim?ap?As?SqlClient.SqlDataAdapter'這個變量很重要
我們提供的服務(wù)有:網(wǎng)站設(shè)計制作、成都做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、根河ssl等。為上1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的根河網(wǎng)站制作公司
Private?Function?Save_Data()?As?Boolean?'保存數(shù)據(jù)庫的操作
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
和導(dǎo)出txt文件的操作是一樣的。
sql語句從數(shù)據(jù)庫獲得數(shù)據(jù)集,然后逐條插入到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到另一個數(shù)據(jù)庫就行了。一般不使用批量寫入,字符串太長
1.使用PHP
Excel Parser Pro軟件,但是這個軟件為收費(fèi)軟件;
2.可將EXCEL表保存為CSV格式,然后通過phpmyadmin或者SQLyog導(dǎo)入,SQLyog導(dǎo)入的方法為:
·將EXCEL表另存為CSV形式;
·打開SQLyog,對要導(dǎo)入的表格右擊,點(diǎn)擊“導(dǎo)入”-“導(dǎo)入使用加載本地CSV數(shù)據(jù)”;
·在彈出的對話框中,點(diǎn)擊“改變..”,把選擇“填寫excel友好值”,點(diǎn)擊確定;
·在“從文件導(dǎo)入”中選擇要導(dǎo)入的CSV文件路徑,點(diǎn)擊“導(dǎo)入”即可導(dǎo)入數(shù)據(jù)到表上;
DimsqlConnection1AsSqlClient.SqlConnectionDimstrConnectAsString="datasource=127.0.0.1;initialcatalog=cade;userid=sa;password=12345;"sqlConnection1=NewSystem.Data.SqlClient.SqlConnection(strConnect)'加上下面幾行代碼就可以了dimdaAsnewSqlDataAdapter("select*from表",sqlConnection1)'這里的鏈接默認(rèn)就是打開的dimdtasnewdatatableda.fill(dt)DataGridView1.DataSource=dt