rezafars
چهارشنبه 19 اردیبهشت 1386, 19:36 عصر
من این کارو میکنم نمیشه لطفا راهنمایی کنید
If CheckBox1.Checked = True Then
c = True
strcon = "provider= microsoft.jet.oledb.4.0;" + "data source=" + map + "pcm/cmtmki.mdb"
sq = "insert into prod (sh_frosh)values ('"
sq &= c.ToString & "')"
datasa(sq)
Else
End If
If CheckBox1.Checked = True Then
c = True
strcon = "provider= microsoft.jet.oledb.4.0;" + "data source=" + map + "pcm/cmtmki.mdb"
sq = "insert into prod (sh_frosh)values ('"
sq &= c.ToString & "')"
datasa(sq)
Else
End If