- 博客(4)
- 收藏
- 关注
RSS订阅原创 把SQL语句转换存储过程
<br />create proc pr_name --pr_name存储过程名称 as begin xxx ---SQL过程 end
2011-04-18 14:57:00
1130
转载 delphi中导出excel文本格式
<br /> if OpenDialog1.Execute then begin try v:= CreateOleObject('Excel.Application'); v.Workbooks.Open(OpenDialog1.FileName); Sheet:=v.Workbooks[1].WorkSheets[1]; Sheet.Select; v.Visible:=false; Sheet.Col
2011-04-11 16:56:00
1796
1
原创 excel数值类型转换为文本
<br />excel数值类型转换为文本 A例数据 Sub trimer() With Sheets("sheet1") ar = .[a1].CurrentRegion For i = 1 To UBound(ar) ar(i, 1) = trim(ar(i, 1)) Next .[a1].Resize(UBound(ar)) = ar End With End Sub 整
2011-04-11 10:18:00
589
转载 excel数据快速导入数据库
procedure TForm1.Button1Click(Sender: TObject);//在数据库中自动生成表 qqq var s:string; ADOConn:TADOConnection; aDataSet:TADODataSet; begin if OpenDialog1.Execute then begin ADOConn:=TADOConnection.Create(self); ADOConn.LoginPrompt:=false; ADO
2011-04-11 09:01:00
565
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人