لدي حقل تاريخ tel_edate - tel_pdate نوع smalldatetime كيف ادخل بياناته من داتا جريد وهذا الكود
Dim SQL As String = "insert into tel_det (tel_rep_id,tel_no,tel_use,tel_acc,tel_br,tel_pdate,tel_edate,tel_now,tel_last,tel_dain,tel_tot) values (@tel_rep_id,@tel_no,@tel_use,@tel_acc,@tel_br,@tel_pdate,@tel_edate,@tel_now,@tel_last,@tel_dain,@tel_tot)"
Dim CMD As SqlCommand = New SqlCommand
With CMD
.CommandType = CommandType.Text
.Connection = con
.Parameters.Add("@tel_rep_id", SqlDbType.Decimal, 10, "tel_rep_id")
.Parameters.Add("@tel_no", SqlDbType.NVarChar, 12, "tel_no")
.Parameters.Add("@tel_use", SqlDbType.NVarChar, 50, "tel_use")
.Parameters.Add("@tel_acc", SqlDbType.NVarChar, 12, "tel_acc")
.Parameters.Add("@tel_br", SqlDbType.NVarChar, 50, "tel_br")
.Parameters.Add("@tel_pdate", SqlDbType.SmallDateTime, dt1)
.Parameters.Add("@tel_edate", SqlDbType.SmallDateTime, "tel_edate")
.Parameters.Add("@tel_now", SqlDbType.Decimal, "tel_now")
.Parameters.Add("@tel_last", SqlDbType.Decimal, "tel_last")
.Parameters.Add("@tel_dain", SqlDbType.Decimal, "tel_dain")
.Parameters.Add("@tel_tot", SqlDbType.Decimal, "tel_tot")
.CommandText = SQL
End With
If con.State = ConnectionState.Open Then con.Close()
con.Open()
dpdet.TableMappings.AddRange(New DataTableMapping() {New DataTableMapping("Table", "tel_det", New DataColumnMapping() {New DataColumnMapping("tel_rep_id", "tel_rep_id"), New DataColumnMapping("tel_no", "tel_no"), New DataColumnMapping("tel_use", "tel_use"), New DataColumnMapping("tel_acc", "tel_acc"), New DataColumnMapping("tel_br", "tel_br"), New DataColumnMapping("tel_pdate", "tel_pdate"), New DataColumnMapping("tel_edate", "tel_edate"), New DataColumnMapping("tel_now", "tel_now"), New DataColumnMapping("tel_last", "tel_last"), New DataColumnMapping("tel_dain", "tel_dain"), New DataColumnMapping("tel_tot", "tel_tot")})})
dpdet.InsertCommand = CMD
dpdet.Update(dttel, "tel_det")
con.Close()