ต้องการให้เวลาบันทึก ให้บันทึก id ในฟิว ProfileID โดยอัตโนมัตอ่คะ แล้วก็ฟิว PID ดึงรหัสหรือ PK จากต

dim sb as new stringbulder
dim da as sqldataadapter
dim ds as new dataset
dim datatable dt as new datatable
dim sql as string = ""

sb.remove(0,sb.lenght)
sb.append("select max(pid) as pid from history")
sql = sb.tostring()

da = new sqldataadapter(sql,con)
da.fill(ds,"dthistory")
dt = ds.table("dthistory")

'////////
sb.remove(0,sb.lenght)
sb.append("insert into profiles(f_a,f_b,pid,f_c) ")
sb.append(" values("'" && "',"")
sb.append(""' & strA & "',")
sb.append(""' & strB & "',")
sb.append(""' & dt.row(0).item("pid") & "',")
sb.append(""' & strC & "')")

sql = sb.tostring()

com.commandtype = command.text
com.commandtext = sql
com.connection = con
com.exce...


sele

sb.remove(0,sb.lenght) 
sb.append("insert into profiles(f_a,f_b,pid,f_c) ") 
sb.append(" values('" & strA & "',"") 
sb.append("'" & strB & "',") 
sb.append("'" & dt.row(0).item("pid") & "',") 
sb.append("'" & strC & "')")