如何把时间加入SQL数据库,难提,高手请进

Question

2002-08-01   12:00:01,如何把这样的数据格式加入SQL中,加入的时间字段格式为datetime,已经想了两天还是想不到,原理是这样的,从SQL中导出时间数据到EXCEL中,再把EXCEL中的时间再导入到数据库中就提示从字符串转换到datetime时出现错误代码如下:Public sql1 As String, sql2 As String, sql3 As String
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs1 As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public rs3 As New ADODB.Recordset
Public rs4 As New ADODB.Recordset
Public exlapp As New Excel.Application
Public exlbook As Excel.Workbook
Public exlsheet As Excel.Worksheet
Public rows As Integer, rows2 As Integer
Public i As Integer, j As Integer, k As IntegerPrivate Sub Command1_Click()    Dim cn As New ADODB.Connection
    cn.CursorLocation = adUseClient
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\12.xls;Extended Properties='Excel 8.0;HDR=Yes'"If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select min(id) from app_ponderation", conn, 1, 1
    
sql1 = "SELECT * FROM [Sheet1$]"
Set rs = cn.Execute(sql1)
While Not rs.EOF
 sql = "insert into app_ponderation(ID,IDcode,Mnumber,Cuscode,Truck,Re,Mdriver,Pdriver,OverFlag,Mweight,Pweight,Krate,Kweight,Mtime,Ptime,BillDate,gradecode,exportcode,addresscode,Casecode) " _
     & "values('" & ("-" & fixsql(rs(0))) & "', " _
     & "'" & fixsql(rs(1)) & "' ," _
     & "'" & ("00" & fixsql(rs(2))) & "' ," _
     & "'" & ("00" & fixsql(rs(3))) & "' ," _
     & "'" & fixsql(rs(4)) & "' ," _
     & "'" & fixsql(rs(5)) & "' ," _
     & "'" & fixsql(rs(6)) & "' ," _
     & "'" & fixsql(rs(7)) & "' ," _
     & "'" & fixsql(rs(8)) & "' ," _
     & "'" & fixsql(rs(9)) & "' ," _
     & "'" & fixsql(rs(10)) & "' ," _
     & "'" & fixsql(rs(11)) & "' ," _
     & "'" & fixsql(rs(12)) & "' ," _
     & "'" & Left(fixsql(rs(14)), 9) & "' ," _
     & "'" & Left(fixsql(rs(15)), 9) & "' ," _
     & "'" & fixsql(rs(16)) & "' ," _
     & "'" & ("00" & fixsql(rs(17))) & "' ," _
     & "'" & ("00" & fixsql(rs(18))) & "' ," _
     & "'" & ("00" & fixsql(rs(19))) & "' ," _
     & "'" & ("00" & fixsql(rs(20))) & "')"
     
 conn.Execute (sql)
 rs.MoveNext
Wend
conn.Close
Set conn = Nothing
cn.Close
Set cn = Nothing     'addsqldata
    
    
End Sub
Private Sub Form_Load()If conn.State <> 1 Then
    conn.CursorLocation = adUseClient
    conn.Open LoginDB
End If
End Sub
Sub addsqldata()
'If rs.State = adStateOpen Then rs.Close
'rs1.Open "select max(id) from app_ponderation", conn, 1, 1End Sub
Function fixsql(str)
 Dim newstr
 newstr = str
 If IsNull(newstr) Then
  newstr = ""
 Else
  newstr = Replace(newstr, "'", "''")
 End If
 fixsql = newstr
End Function

Answer 1

PTIME和MTIME是时间字段,原来在这两个字段的数据格式是2002-08-01   12:00:01
把它导出EXCEL后,再导入SQL就不行

Answer 2

就是 & "'" & Left(fixsql(rs(14)), 9) & "' ," _
     & "'" & Left(fixsql(rs(15)), 9) & "' ," _
这两个字段
如果取左边9为数或者取右边8位数都可以加进数据库,但是同时把年月日,时分秒一起加进数据库就提示出错

Answer 3

原来SQL中的格式是datetime格式,导出到excel中的格式是自定义yyyy-m-d hh:mm,就是把excel中的时间导回到SQL中就不行,格式都换过也不行

Answer 4

不好意思，偶目前不懂，学习ING

Answer 5

实际上问题是：从 Excel 导出数据时，它未必被当作字符串来处理的。数据库引擎可能将其当作数字来处理，2002-8-1 可能是 1993。

Answer 6

SQL數據庫的話 可以使用Conver來做 具體你可以看Books Online
得到日期用 Convert(Varchar(50),ziduan,103)
得到時間用 Convert(Varchar(50),字段（或者是變量），108)

Answer 7

LS不好意思,我是用EXCEL的字段加入SQL中,用日期转换涵数是不行

Answer 8

LS不好意思,我是用EXCEL的字段加入SQL中,用日期转换涵数是不行
==================================
爲什麽不行啊？

Answer 9

因为我是把EXCEL中字段进行查询,跟本上使用不了SQL的涵数

Answer 10

但是，你插入數據的時候用到的是什麽啊？ 是JSQL 還是TSQL?
查詢不可以 插入時候用總可以吧

Answer 11

On Error GoTo Click_Err:
    Dim oCon As New ADODB.Connection
    Dim eCon As New ADODB.Connection
    Dim rs As New Recordset
    oCon.ConnectionString = Me.Adodc1.ConnectionString--連接SQL的 我用的Adodc得到連接字符串
    eCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=C:\Documents and Settings\zhangshuai\My Documents\MyWork\Shit.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
    eCon.Open
    oCon.Open
'    rs.Open "Select * From Change", eCon, adOpenDynamic, adLockBatchOptimistic
    Set rs = eCon.Execute("Select * From [Sheet1$]")
'    Debug.Print rs(0)
    If rs.EOF Then
        eCon.Close
        oCon.Close
        Exit Sub
    End If
    oCon.Execute "Select * From ZhangShTry"
    While Not rs.EOF
        oCon.Execute "Insert Into ZhangShTry(Code,Date,Time) Values('" & rs(0) & "',Convert(Varchar(50),'" & rs(1) & "',103),Convert(Varchar(50),'" & rs(2) & "',108))"
        rs.MoveNext
    Wend
    oCon.Close
    eCon.Close
    Exit Sub
Click_Err:
    Debug.Print Err.Source, Err.Description
    eCon.Close
    oCon.Close
我用這個可以得到正確的結果 也沒有出現你說的為未定義錯誤 不知道你吧Convert放到了哪裏
Up

Answer 12

谢谢楼上,我自己已经找到解决方法,就是在字段中加入FormatDateTime函数就OK了