asp读取txt文件并写入数据库

发布网友发布时间：2022-05-02 08:26

共4个回答

懂视网时间：2022-05-02 12:47

protected void Button1_Click(object sender, EventArgs e)
 {
 
 System.IO.StreamReader my = new System.IO.StreamReader("C:/Users/Administrator/Desktop/2.txt", System.Text.Encoding.Default);
 string line;
 while ((line = my.ReadLine()) != null)
 {
  Response.Write(line + "<br />");
 string[] mm = line.Split(‘|‘);
  Insert(mm);
 } 
  
 my.Close();


 }

 private void Insert(string[] mm)
 {
 string name = mm[0];
 string dianhua = mm[1];
 string dizhi = mm[2];
 string nianling = mm[3];
 string xingbie = mm[4];
 string strcon = ConfigurationManager.ConnectionStrings["strcn"].ConnectionString;
 SqlConnection sqlcnn = new SqlConnection(strcon);
 SqlCommand sqlcmm = new SqlCommand();
 sqlcmm.Connection = sqlcnn;
 sqlcnn.Open();


  sqlcmm.CommandText = "insert into users(name,hao,age,sex,dress) values(@name,@hao,@age,@sex,@dress)";
  
  sqlcmm.Parameters.AddWithValue("@hao",dianhua);
  sqlcmm.Parameters.AddWithValue("@name", name);
  sqlcmm.Parameters.AddWithValue("@dress",dizhi);
  sqlcmm.Parameters.AddWithValue("@age", nianling);
  sqlcmm.Parameters.AddWithValue("@sex", xingbie);
  int rest = sqlcmm.ExecuteNonQuery();
  if (rest > 0)
  {
  this.Response.Write("保存成功！");
  }
 
 else
 {
  this.Response.Write("错误！");
 }
  sqlcnn.Close();
 
 }

　　导包

using System.Data.SqlClient;
using System.Configuration;

asp.net读取txt并导入数据库

标签：with nta cti cut 导入数据库 event insert object txt

热心网友时间：2022-05-02 09:55

可以用fSO逐行读取
<body>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("text.txt"))
While Not txtFile.AtEndOfStream
Response.Write "<center>" & txtFile.ReadLine & "</center><br>"
。。写入数据库
Wend
txtFile.Close
%>
</body>

也可以直接连接数据库，从文本中直接读取
insert into tbl select * OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Text;HDR=no;Delimited="::";DATABASE=d:\',tmp#txt)

另外还可以用BCP导入文本到数据库
类似的样式：
EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:“DT.txt -c -Sservername -Usa -Ppassword’

仅供参考，具体写法请查资料，注意路径和文件名

热心网友时间：2022-05-02 11:13

a = "xx.txt"
Sub Sread(a)
'===读数据
dlink=FSOFileRead(a)
dlink=Replace(dlink,Chr(13)&Chr(10),"#")
dlink_1=Split(dlink,"#")
dlink_2=UBound(dlink_1)
If dlink_2>=0 Then
Call Sconn()
For dlink_i=0 To dlink_2
Rs.Addnew
Rs("变量名") = dlink_1(dlink_i)
Rs.update
Next
End If
End Sub

Sub Sconn()
'====数据库连接

End Sub

'读取文件
Function FSOFileRead(Template_Name)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True)
If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

热心网友时间：2022-05-02 12:48

<%
path="text.txt"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath(path), 1)
do while f.AtEndOfStream = false
Response.Write("Line:" & f.Line & " ")
Response.Write(f.ReadLine)'数据添加操作
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>