1
dear all,
please help me that my script cannot insert data to ms acces.
<%@ Page Language="vb" ContentType="te xt/html"%>
<%@ Import NameSpace = "System.Dat a" %>
<%@ Import NameSpace = "System.Data.Ol eDb" %>
<script runat="server">
Sub Insert_Btn (s As Object, e As EventArgs)
Dim Conn As OleDbConnection
Dim ConnCommand As OleDbCommand
Dim ConnString, InsertString As String
Dim batas_peminjama n As Integer
Dim InputNama_depan , InputNama_tenga h, InputNama_belak ang, InputNama_total As String
ConnString = "PROVIDER=Micro soft.Jet.OLEDB. 4.0;DATA SOURCE=D:\Inetp ub\wwwroot\Prak \perpustakaan.m db"
Conn = New OleDbConnection (ConnString)
Conn.Open()
InputNama_depan = (txtnamadepan.T ext)
InputNama_tenga h = (txtnamatengah. Text)
InputNama_belak ang = (txtnamabelakan g.Text)
InputNama_total = ((InputNama_dep an) + (InputNama_teng ah) + (InputNama_bela kang))
select case DropDownJenis.S electedItem.Tex t
case "Dosen": batas_peminjama n = 30
case "MHS_IT": batas_peminjama n = 14
case "Non_IT": batas_peminjama n = 7
case else : batas_peminjama n = 5
end select
InsertString = " INSERT INTO pinjam (no_anggota, nama_anggota, alamat_anggota, email_anggota, fakjur, jenis_anggota, batas_peminjama n) VALUES ('" & txtno.Text & "', '" & InputNama_Total & "', '" & txtALAMAT.Text & "', '" & txtemail.Text & "', " & DropDownFakjur. SelectedItem.Te xt & ", '" & DropDownJenis.S electedItem.Tex t & "', '" & batas_peminjama n & "')"
ConnCommand = New OleDbCommand (InsertString,C onn)
Conn.Close()
End Sub
</script>
<html>
<head>
<title>Insert Data </title>
<style type="text/css">
<!--
.style1 {
font-family: "Comic Sans MS";
font-weight: bold;
}
-->
</style>
</head>
<body>
<form runat="server">
<table width="100%" height="222" border="0" class="style1">
<tr>
<td width="164" height="26">No Anggota</td>
<td width="86"><div align="center"> <strong>:</strong></div></td>
<td width="711">
<asp:TextBox ID="txtno" MaxLength="7" CssClass="style 1" runat="server"/>
<asp:RequiredFi eldValidator ID="Validatorno " ControlToValida te="txtno" ErrorMessage="N o Anggota harus di ISI" Display="Static " runat="server"/>
<asp:RegularExp ressionValidato r ID="Regularno" ControlToValida te="txtno" ValidationExpre ssion="\d{7}" ErrorMessage="N omer anggota harus tujuh DIGIT" Display="Static " runat="server"/>
</td>
</tr>
<tr>
<td height="26">Nam a Depan </td>
<td><div align="center"> <strong>:</strong></div></td>
<td>
<asp:TextBox ID="txtnamadepa n" CssClass="style 1" runat="server"/>
<asp:RequiredFi eldValidator ID="Validatorna madepan" ControlToValida te="txtnamadepa n" ErrorMessage="N AMA DEPAN harus di ISI" Display="Static " runat="server"/>
</td>
</tr>
<tr>
<td height="26">Nam a tengah </td>
<td><div align="center"> <strong>:</strong></div></td>
<td>
<asp:TextBox ID="txtnamateng ah" CssClass="style 1" runat="server"/>
</td>
</tr>
<tr>
<td height="26">Nam a Belakang </td>
<td><div align="center"> <strong>:</strong></div></td>
<td>
<asp:TextBox ID="txtnamabela kang" CssClass="style 1" runat="server"/>
</td>
</tr>
<tr>
<td height="26">Ala mat Anggota </td>
<td><div align="center"> <strong>:</strong></div></td>
<td>
<asp:TextBox ID="txtalamat" CssClass="style 1" runat="server"/>
<asp:RequiredFi eldValidator ID="Validatoral amat" ControlToValida te="txtalamat" ErrorMessage="A LAMAT harus di ISI" Display="Static " runat="server"/>
</td>
</tr>
<tr>
<td height="26">Ema il Anggota </td>
<td><div align="center"> <strong>:</strong></div></td>
<td><asp:TextBo x ID="txtemail" CssClass="style 1" runat="server"/></td>
</tr>
<tr>
<td height="24">Fak jur</td>
<td><div align="center"> <strong>:</strong></div></td>
<td>
<asp:DropDownLi st ID="DropDownFak jur" CssClass="style 1" runat="server">
<asp:ListItem Value="sastra_i nggris">FS-S1 sastra Inggris</asp:ListItem>
<asp:ListItem Value="sastra_J epang">FS-S1 sastra Jepang</asp:ListItem>
<asp:ListItem Value="D3_sastr a_inggris">FS-D3 sastra Inggris</asp:ListItem>
<asp:ListItem Value="d3_sastr a_mandarin">FS-D3 sastra mandarin</asp:ListItem>
</asp:DropDownLis t>
</td>
</tr>
<tr>
<td height="24">Gol ongan</td>
<td><div align="center"> <strong>:</strong></div></td>
<td>
<asp:DropDownLi st ID="DropDownJen is" CssClass="style 1" runat="server">
<asp:ListItem Value="dosen">D osen</asp:ListItem>
<asp:ListItem Value="it">Maha siswa IT</asp:ListItem>
<asp:ListItem Value="non_it"> Mahasiswa Non IT</asp:ListItem>
<asp:ListItem Value="luar">Ma hasiswa Luar</asp:ListItem>
</asp:DropDownLis t>
</td>
</tr>
<tr>
<td height="52" colspan="3">
<asp:Button Text="Insert-Data" OnClick="Insert _Btn" runat="server"/>
<asp:Label ID="txtResult" runat="server" ForeColor="#009 999"/></td>
</tr>
</table>
<hr color="#009999" >
<hr color="#009999" >
</form>
</body>
</html>
